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FOREWORD 


This document represents the final report of a contract 
for the continued advancement of the programming language 
HAL to an operational status. The effort was sponsored by 
the National Aeronautics and Space Administration's 
Manned Spacecraft Center in Houston, Texas under Contract 
NAS-9-11944 . It was performed by ' Intermetrics , Inc., 
Cambridge, Mass, under the technical direction of Mr. 
Daniel J. Lickly. The Technical Monitor for NASA/MSC 
was Mr. John Garman , FS/6 . 


The publication of this report does not constitute approval 
by the National Aeronautics and Space Administration of 
the findings or the conclusions contained therein. It is 
published only for the exchange and stimulation of ideas. 
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1.0 TASK SUMMARY 


The objectives and time duration of this contract were 
limited. Essentially, over the summer months of 1971 HAL was 
to be installed on the 360/75 at MSC , on-site support provided, 
users trained by class sessions, the compiler updated as 
necessary and experience gained with the language. The 
work was divided into two broad areas : maintenance and training , 

and advanced HAL development. 


1. 1 Task I; Maintenance and Training 

Under this task, Intermetrics established a support systems 
programmer (Mr. Ronald Kole) at MSC within the Flight Software 
Section. Mr. Kole succeeded in solving some of the formidable 
problems associated with running at the RTCC under RTOS and 
transferred HAL from Intermetrics ' 360/65 to MSC ' s 360/75. In 
addition, from time to time, necessary modifications originating 
in Cambridge and in Houston were incorporated at both sites 
and specifically, a general compiler-version update procedure 
was developed and implemented at MSC. The most significant, 
modification was a redesign of the storage allocation algorithms, 
described in detail in Section 4.2 of this report. 

Also as part of this task activity, 36 hours of training 
classes were conducted at MSC and the MIT Draper Laboratory. 

A total of approximately 50 people attended, including both 
government and industrial personnel. 

Although no modifications were made which affected the 
HAL Specification or Guide documents, a new complete description 
of HALMAT, the intermediate code, was issued. 


1.2 Task II: Advanced HAL Development 


The objective of this development task was to increase 
the transferability of HAL to another host computer. . The 
approach taken was to demonstrate that the compiler itself 
could be written in HAL. If this were accomplished then the 
entire compiler could be compiled on the 360 into FORTRAN and 
then the FORTRAN moved to almost any other large computer 
with only minor modifications. Toward this end a portion of 
the HAL compiler was coded in HAL and demonstrated to work on 
the 360/75 at the MIT Draper Laboratory. The portion selected 
exercised the bit and character handling features of HAL and 
indicates the feasibility of the approach. 
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PRECEDING PAGE BLANK NOT FILMED 


2.0 HAL INSTALLATION AND ON-SITE SUPPORT 


2.1 Installation 

The HAL compiler and associated software were developed 
at the Harvard Commuting Center in Cambridge, Massachusetts using 
a 360/65 running under OS/360 MVT Release 18. Transferability 
problems were encountered in establishing a usable HAL system 
at MSC. These problems may be broken down into two categories: 

(1) logistics and (2) internal software compatibility. Before 
the second set could even be recognized , the first had to be 
solved. 


2.1.1 Logistics Problems 

The logistics problems are the ones associated with the 
differences in operating procedures and at the systems' two 
installations. The preparation and submission of jobs at 
Harvard were done almost entirely through the Conversational 
Remote Batch Entry System (CRBE) . The Harvard system was equipped 
with four IBM 1403 printers, each having a full PL/1 character 
set. The entire HAL system was maintained on a disk pack that 
was mounted by the operator when needed. 

In contrast, the RTCC at MSC uses IBM 360/75 computers 
running a modified OS MVT which they call RTOS (Real Time 
Operating System) . The RTOS version available during the 
June-September 1971 installation period corresponded roughly 
to OS/360 Release 18. The RTCC does not support the CRBE system, 
so all input submission was done via punched cards. This in 
itself was something of a problem since some pieces of the 
compiler and even some updates to the compiler were quite long. 
Also, the handling of cards and the chance of error in mixing 
up cards was considered less desirable than an on-line editing/ 
submitting system like CRBE. 


2.1. 1.1 RTCC Limited Di sk Space . The RTCC also has very limited 
available disk space. In fact, it is impossible to have a 
permanently saved disk on the system. Therefore, a reasonable 
way had to be found to give users access to the HAL compiler. 

The method settled on was to use a dump/restore tape. When a 
user wants to run something that is located on the HAL disk 
(known as HALO 01 at the RTCC) he tells the operator of the 
requirement for this special disk. The operator must "restore" 
the disk from a tape before the user's actual job can run. 

This means that he must run a background utility to transfer 
the contents of a special tape to some existing disk on the 
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system so that any user programs requesting HAL001 will find 
the disk mounted. After the user's run finishes, the HAL001 
disk is scratched to make room for perhaps some other user's 
restored disk. 

This system works, but it puts all jobs that require HAL001 
in a special class that is usually run only during the early 
morning hours. This obviously precludes any same-day turnaround 
as can sometimes be obtained with "non-special" device require- 
ments. There is, however, an advantage that is gained indirectly 
through use of the dump/restore tape. Since it is not any 
one physical disk that is mounted to satisfy requests for 
HAL001, it is possible to have serial versions of the disk 
available as separate dump/res tore . tapes . The user need only 
specify which dump/restore tape he wants used to create HAL001. 

Since one HAL001 is the same to the system as any other, all 
of his Job Control Language will work no matter which dump/ 
restore tape is used. 

The more troublesome aspect of the dump/restore system 
is the creation of an updated HAL001 and getting that new 
version put onto a D/R tape. The method of updating is to 
submit the job that makes the desired changes, requesting that 
HAL001 be restored in the normal manner, but also requesting 
that the disk to which the restore will take place- be completely 
erased first. The job is then run as a regular batch job. 

After the run is completed the operator is requested to "dump" 

HAL001 to some specified tape. This tape then becomes the 
updated restore tape. 

The problem in this system can occur in many ways. The 
disk to be restored must be erased first. This is to assure 
that after the update run, HAL001 contains only the HAL001 
files. The dump program that does the disk to tape transfer 
will copy anything that it finds on the disk, no matter where 

it originated. So failure to erase the disk, while not really 

causing any errors in the resulting D/R tape, makes the tape 

file very long. This also means that subsequent restores from 
the tape will take a much longer time. All of this degrades 
performance of the overall system. It is also possible, if 
an unerased disk is cluttered enough, to overflow one D/R 
tape which causes even more complications. 

Another source of error is the possibility that the operator 
will forget to dump the disk at all. Since this is an operator 
controlled utility, the user gets no indication on his output 
if the disk was actually dumped. The only real way to tell is 
to submit another job the next day to see if the updates were 
indeed saved. There is no way of telling if the restore tape 
file is too big because of a non-erased disk, other than watching the 
restore take place and guessing whether the tape moves a reasonable 
distance. Once an oversized tape file has been created it is 
very difficult to get rid of the unwanted "garbage". Thus, the 
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dump/restore tape method of supplying users with a HAL system 
works fairly well from the user's viewpoint (although turnaround 
is probably adversely affected) but is error prone from the 
system maintenance point of view. 

The real solution to the D/R problem is to eventually 
catalogue all of the HAL system components on the system library 
as is done with the other language translators. This could 
be done now, but such a method is even more difficult to update 
and maintain and should not be used for anything short of a 
non-changing, well established version of the system. 


2. 1.1. 2 RTCC Limited Print Facility . One other source of 
frustration at the RTCC can be identified. The RTCC is basically 
designed to run space missions and not necessarily to support 
batch users. The main outputs of mission programs are real- 
time displays and telemetry. These require. little hard copy 
I/O. The main output of the batch user is printout. Yet the 
RTCC has only one printer per machine with two others shared 
between all machines. The 360/65 at Harvard manages to keep 
four printers busy by itself. So it would seem that the faster 
model 75 would generate a print backlog with even the maximum 
of three printers attached. This did. indeed seem to be the 
case at MSC. This print backlog, of. course, results in reduced 
turnaround. The HAL compiler proper output requires a full 
PL/1 character set. At the RTCC there is only one printer 
that has the UCS (Universal Character Set) feature that can 
support a print set other than the standard limited FORTRAN 
48 character one. All of the output that requires this special 
character set is spooled on tapes until such time as there is 
enough to make the mounting of the special print train worth- 
while. That point is reached two or three times a day. So 
HAL print delays are generally even longer than those caused 
by the regular print backlog. A small point further slowing 
down the printing is that the print train that was used for 
HAL was a special one, known as the Philco train. Some 
characters used by HAL only appear once on this train. This 
delay in waiting for the single character to move to the correct 
print position makes a large reduction in the speed of the 
printers (a visual estimate would be 20 to 40% slower) . 

The necessity of mounting the special character set 
created another potential error situation. If for some reason 
the class of output was mis-written on the spool tape , or 
misread, the output might (and has on occasion) be printed 
on the Fortran print train. It is, of course, then unreadable. 
The net result of these operation dependent procedures was a 
1 run per day situation at best. Some preliminary users 
experienced even longer delays. 


5 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 



2.1.2 Software Incompatibility 

The second class of problems relating to implementing 
HAL at MSC concern the operating system peculiarities that are 
present in any system. The most significant difference between 
RTOS at MSC and OS/360 was the handling of core allocation. 

One part of the HAL compiler called the Submonitor was signifi- 
cantly affected by the RTOS scheme. 

The Submonitor is an assembler language program whose 
purpose essentially is to provide an I/O interface with the 
operating system.' It also has the task of obtaining a block 
of core storage into which the actual compiler machine code 
can be placed for execution. In the original version of the 
Submonitor at Harvard, the necessary core was requested by 
means of a GETMAIN macro instruction. The operating system 
then gave the Submonitor the requested core out of the remaining 
part of the task's region as specified in the REGION parameter. 
Thus, it was possible to use the region parameter to determine 
how much core was made available to run the compiler. 


2. 1.2.1 OS/360 Core Allocation . The standard OS scheduling 

algorithms keep jobs in a waiting queue until such time as 
there is available in the machine, enough core in a contiguous 
block to satisfy the job's REGION request. Then the job is 
started and is free to do whatever it wants with its core. This 
block of contiguous core is reserved for the one task, even if 
the task uses only a small part of it. Thus, if an adequate 
REGION parameter is supplied, the Submonitor is guaranteed 
the availability of the core it needs to run the compiler. The 
Submonitor, in fact, makes maximum use of the entire available 
core by using a form of the GETMAIN Macro instruction that 
gives the operating system a minimum and maximum value of 
acceptable core regions. The maximum is set very high so that 
the operating system, in trying to come as close as possible to 
the maximum requested allocates all of the core remaining in 
the Submonitor's region. 


2.1.2. 2 RTOS Core Allocation. RTOS, however, does not make 
a job wait until the requested REGION. is available in a conti- 
guous block. It waits only until the sum of all free core in 
the system meets or exceeds the requested REGION. In fact, 
the decision of which jobs to run at any one time is based on 
a 125% allocation of core on the assumption that not all jobs 
will require their entire region at the same time. So in the 
case of the HAL compiler which requires about 4K bytes of core. 
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the operating system will load and execute the Submonitor as 
soon as there is 4K contiguous core available and enough other 
free core to satisfy the rest of the specified REGION parameter 
(this is usually 300K for HAL). The Submonitor then immediately 
issues a GETMAIN for the remaining core. This is where the 
operating system differences cause problems. 

Under RTOS, a GETMAIN of the original form used at Harvard 
causes the operating system to put th e Submonitor task into 
a wait state until the maximum of the minimum/maximum pair 
is available. For a large maximum this never happens and the 
job must eventually be cancelled by the operator. 

2. 1.2. 3 Some Solutions. The first attempt to fix this was 
made by allowing the user to specify in his JCL the minimum and 
maximum values to be used in the GETMAIN request instead of the 
Submonitor's default values. This approach will apparently 
work for smaller programs, but for larger programs, there seems 
to be some system prescribed limit to the amount of core that 
can be obtained in this way. The Submonitor was never able 
to obtain more than 262, 144 (or 2^®) bytes of core. This is 
not enough to run the compiler and another method was needed. 

The second method was to change the type of GETMAIN to 
one that requested a single specific size piece of core. 

The user was given the ability to specify this number through 
a keyword in his JCL. This system partially solved the problem. 
It was possible to obtain the correct amount of core this way, 
but another problem persisted. Even though RTOS could guarantee 
the existance of 300K bytes of free core, it could not guarantee 
how this core was divided up as could the regular OS. It was 
possible for the Submonitor to go into a wait state while the 
operating system tried to supply its contiguous core requirement. 
Under the right circumstances, this might take an hour or more. 
Whenever a task goes into the wait state, RTOS monitors how 
long it stays there. After some length of time RTOS begins 
sending the operator messages informing him of the lack of 
progress of the task. The operator makes the decision on the 
length of time the task is allowed to wait. After he gets 
tired of seeing the periodic messages, he usually cancels the 
job. The problem with this method is that the operator is 
never told why the job is waiting; it may be waiting because of 
some programmer error. He really has no chance to evaluate 
the situation. 

The next step taken toward insuring a successful run 
was to take the wait for core out of the running Submonitor 
and put it in the pre-execution allocation. This simply meant 
doing away with the GETMAIN and giving the Submonitor a built-in 
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storage area big enough to run HAL. Under this system, the 
Submonitor became about 300K bytes long. This forced the 
operating system to find the 300K in a contiguous region before 
it could even load the Submonitor. As before, it was still 
possible for the available core to total more than 300K and yet 
not have 300K contiguous, but now the operator got a message 
saying " JOBXXX AWAITING A REGION" . In this way the operator 
was informed of the real cause for the delay and was more 
willing to let the job wait for the core to become available. 

Although the probability of getting a job to run has been ' 
increased, it is still possible for the job to be cancelled 
when it was the only user job in the system and was still unable 
to get its core. This happens when there are "backround" 
utilities running. Although they are termed "backround", they 
still compete for core like any other job on the system and it 
is possible for them to tie up core in such a way that a HAL 
job will not run even though it appears to be all alone on the 
system. 

One small drawback to this final state of the Submonitor 
is that it is no longer possible to use the REGION parameter, 
or any user keywords to limit the size of the available core. 
This is not considered much of a handicap since the size of 
the HAL compiler is quite stable and is expected to remain so. 

There is an alternate approach to solving the core lockout 
problem. This would involve a redesign of the HAL compiler 
structure to give it a scatter loadable attribute. If this 
were done, the required core would not need to be contiguous; 
several smaller contiguous areas would be requested. The 
probability of finding these smaller areas would be greater than 
the present system. There would, however, still be a finite 
chance that even these smaller regions would not all be avail- 
able. The situation is such that the more the core requirement 
is split up, the more chance there is that the resulting 
smaller pieces will be found. More pieces of code, however, 
require much more overhead to maintain. Also, the redesign 
of the HAL code to allow such a split would be a difficult job 
that would not further the goal of producing a better overall 
compiler. The frequency of run failures under the present 
system is very low and sporadic. For a large, ground-based, 
batch-oriented system like the RTCC , additional time spent on 
refinement of HAL running procedures, would be of little value 
compared to the same time spent on refinement of the actual 
compiler code. 

This potential lockout problem is not peculiar to HAL. 

It can happen to any job on the system whose core requirements 
are of the same size and nature as HAL's. 
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2 . 2 Program Changes and Maintenance Procedures 


During the June-September 1971 time period many changes 
were made to both the HAL Submonitor and the compiler itself. 

Most of the changes made to the Submonitor are detailed in 2.1 
above. These changes were basic in nature and took a large part 
of the summer to research and implement properly at MSC . In 
addition, new compiler versions were developed at Intermetrics 
and were sent to Houston on magnetic tape where copies of all 
of the files on the tape were put on MSC-owned tapes. The 
required files were then transferred from tape to the HAL001 
disk and the disk then dumped to a dump/restore tape as described 
above . 


2.2.1 Updates 

A three tape dump/restore system was established to 
maintain the integrity of the system. One tape, called the 
system tape was the only one available to users. It always 
contained the most recent released version of the compiler. 
Thus, users only had to have this tape number to run HAL 
compilation. The two other tapes were development tapes. They 
were used in an alternating manner to build and checkout a new 
release. The alternation was necessary to provide a backup in 
case of some failure to make a good update. To make an update, 
the newest version development tape was used to restore HAL001. 
The update was made to the disk and then HAL001 was dumped to 
the alternate development tape. Even if the dump was not done, 
or if the update was unsuccessful, the original restore tape 
was still intact. 

Once a version was considered ready for release, the 
development tape on which it resided was simply copied onto 
the system tape. Users specifying the system tape number as 
the HAL001 dump/restore automatically got the new release. 

In addition to updates originating in Cambridge, some 
changes were made to the compiler at MSC. Small changes were 
communicated to Cambridge directly by long distance through 
the CRBE system at Harvard. In the case of larger updates, 
tapes were exchanged. 


2.2.2 Summary of Changes Made At MSC 

a) Research and implement the changes to the Submonitor to 
allow a more reliable core allocation. 
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b) Fix numerous small bugs found during checkout both in 
the HAL code itself and in the HAL run time library. 

c) Partially implement and lay the ground work for a more 
complete listing generator as detailed in the HAL Guide. 

This involved providing additional functions in the 
Submonitor to allow the HAL compiler to set a maximum number 
of lines per page of listing and to dynamically request the 
line number of the current line on the page. These new 
functions helped to lay the framework for the ability to control 
completely the layout of the HAL listing. The listing was 
changed to the extent that the statement and line numbers 

were made available and the format of the format of the 
printed source code changed to increase readability. 
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3.0 HAL COURSES 


3.1 General Description 

Intermetrics personnel prepared and conducted three HAL 
langauge courses during the contract period. The material 
was designed for two types of audiences: 1) those seeking 
a broad "brush" overview of HAL, 2) those intending an indepth 
exposure to HAL. Two 15-hour sessions (2 1/2 days each) were 
given at the Manned Spacecraft Center in Houston. The first, 
primarily for NASA personnel and the second, for industrial 
contractors and other government agencies with an interest 
in higher order languages. For each session, the first three 
hours were devoted to the HAL overview; however, the overview 
itself was considered an integral part of the longer course. 

A special third session was also conducted at the MIT 
Draper Laboratory, for Laboratory personnel and local industrial 
contractors. Because of the familiarity of these personnel 
with MIT's MAC language and certain similarities between HAL 
and MAC, an effective 1-day, 6-hour course was held. The course 
consisted of the overview, with elaborations and discussions, 
followed by a rapid presentation of the salient features of 
HAL . 


In general, the participating students at MSC and MIT 
were highly motivated to learn HAL and always attempted the 
place HAL in perspective with respect to Shuttle applications. 
As a result, many provocative questions were asked and in some 
circumstances material discussed in class was fed back into 
the HAL design. 


3 . 2 Course Preparation 


The HAL courses were prepared with two objectives in 
mind: an overview, and a detailed study. For the overview, 
a balanced presentation of most of the important features and 
rationale incorporated into the HAL Specification Document 
(MSC-#01846) was designed. The purpose here was to illustrate 
how HAL satisfied, for the most part, the requirements imposed 
on a programming language for the Shuttle. Toward this end 
readability, vector-matrix arithmetic, data management, systems 
programming, real-time control and software reliability were 
emphasized. 

The material was presented in vu-graph form and included 
numerous "Shuttle-like" application examples and commentary 
which included Intermetrics ' experience with Apollo software 
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development. Particular attention was paid during the overview 
to indicate which HAL features would not be included in the 
first implementation for the IBM 360/75 at MSC . This was 
especially true for the descriptions of real-time control, 
controlled data sharing, and the error recovery features. 

The longer HAL course was designed as an in-depth study 
of HAL and the overview served as an excellent orientation. 

This part of the course was based closely on the HAL Guide 
(MSC #01848) and the material was a combination of vu-graphs , 
references, to the Guide text and blackboard work. Only those 
features actually intended for implementation on the first 
360/75 version were covered. (This specifically excluded 
real-time control, etc.) 

Levels of increasing detail were presented, first with 
a set of vu-graphs covering all of the language features of 
HAL; i.e., operations, declarations, indexing, control, etc. 
followed by a careful tour through selected portions of the 
Guide. The Guide work illustrated usage, described many examples 
and motivated class discussions (and, in fact, contributed to 
subsequent corrections to the Guide) . The technique of repeating 
subject material in levels of increasing detail; i.e. from 
overview to construct description to Guide with examples, 
proved to be an effective method of rapid assimilation and 
study . 

In addition to text material and lecture, each student 
was provided with a HAL problem set as a homeword exercise. 
Unfortunately, few found the time to actually address these 
problems out of class. However, during the l>ast class session, 
prepared problem answers were distributed and each problem was 
carefully " talked-through" . Actual runs on the 360/75 by the 
students were contemplated during the course preparation, but 
360 turn-around time within the RTCC facility was not consistent 
with the 2 1/2 day course duration. 

An outline of the HAL course material is presented in the 
next section and the vu-graphs for both the overview and the 
longer course are collected in Appendix 


3 . 3 Course Outline 

3.3.1 Overview (vu-graph material) 

1. Higher order language motivation and capabilities. 
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2 . 


Salient features of HAL 


3. Data types 

4. Program organization and structure 

5. HAL Statements 

6. Specific Examples 

7. Real-time control, including data sharing and error 
recovery 

8 . Summary 

3.3.2 Longer Course (Vu-graph Material) 

1. Data Operations 

2. Data Declarations 

3. Indexing: partitions and use of subscripts 

4. Control and branching mechanisms 

5. Name scope rules 

3.3.3 Longer Course (Guide Material) 

1. Two-dimensional input-output format 

2. HAL m (HAL Mathematical Subset) 

a. Data and declarations 

b. Arithmetic expressions 

c. Assignment statements 

d. User-defined functions (SCALAR, VECTOR, MATRIX) 

e. IF Statements 

f. Illustrative problems - I 

g. Subscripts 

h. DO Statements 

i. Illustrative problems - II 

j. Subroutines; i.e., HAL PROCEDURES 
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k. Illustrative problems - III 

l. Name scope 

m. I/O Facilities 

n. Illustrative problems - IV 

3. Integer and Bit String Data 

4. Structures 

5. Bit and Character String Manipulations 

6. Subscript facilities: complete 

7. Implicit conversion of mixed data types 

8. User-defined functions: complete 

9. Array processing 

10. Shaping functions: complete 

11. REPLACE and DEFAULT Statements 

12. "Talk-through" of problem set 
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4.0 NECESSARY MODIFICATIONS AND ADDITIONS 

Redesign work was undertaken to increase the scope and 
capabilities of the HAL compiler and to promote its transfer- 
ability to other computers. The first step was to redesign 
the variable storage philosophy and mechanization. Extensive 
design sessions were conducted to develop a suitable memory 
storage allocation system that would support the most general 
future goals of HAL, especially transferability (see 4.1 for 
more detail) . This included the techniques necessary to support 
the calling of separately compiled HAL programs and the sharing 
of their data through a COMPOOL. This capability, in some form, 
is vital to the production of a multipass compiler. 

During this time items were also dealt with that were 
either incomplete or had been newly defined. Thus, certain 
"holes" in HAL's capabilities were filled in. In addition, 
a number of shortcomings which had been uncovered were remedied. 


4 . 1 Storage Allocation Problem 

Certain storage allocation problems encountered during 
the implementation of some of the more advanced features of 
HAL in Phase II of the compiler (Fortran code generation) had 
necessitated basic conceptual changes in the allocatin algorithms 
in the compiler. 

In the original version of the algorithms, temporary 
storage required for partial numerical results was allocated 
when needed during the code generation of a HAL statement, and 
f reed-up again not later than at the end of the statement. 

This caused two major difficulties. Firstly, when temporary 
storage was required to hold the value of an argument in a 
procedure or user function invocation, special "vnf reeable " 
temporary storage had to be used to prevent it from possibly 
being reallocated in the body of the procedure or user function. 
Secondly, in HAL statements containing user function invocations, 
(possibly nested), temporary storage allocated for partial 
results before the invocation code was generated had also to 
be masked "unfreeable" for the same reason. Other more subtle 
considerations finally made a complete restructuring of the 
algorithm essential. 

The idea of providing completely dynamic storage allocation 
of execution time was rejected as requiring too many basic 
changes in the mode of operation of Phase II of the compiler. 
Instead a static scheme similar in some respects to the original 
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was adopted. In this scheme temporary storage for the program, 
and for each procedure or user function are allocated within 
mutually non-overlapping segments. A program or subprogram 
may have one segment or several non-contiguous segments of vary- 
ing sizes dedicated for its use, depending on its requirements. 
The sum total of all segments constitutes a single continuous 
area of storage (except possibly for word boundary alignments) . 
At the microscopic level within the bounds of a segment, 
storage is allocated and freed exactly as it was in the original 
allocation scheme. 

Under this scheme, no temporary storage need be marked 
"unf reeable" no matter to what use it is put. Furthermore, 
the. scheme has resulted in considerable simplification and 
unification of other storage allocation mechanisms in operations 
at code generation time. 


4 . 2 Miscellaneous Improvements 

1. Arraynesses: 

* reorganization of the mechanism controlling the 
utilization of statement arraynesses, especially with 
regard to utilization by arrayed subscripts of arrayed 
variables, and by the arguments of user functions. 

* implementation of the arrayed subscripted variable as 
an input or assign argument in a function or procedure 
call . 

2. Cosmetics and Statistics: 

* generation of Phase II timing information, improvement 
of error message format, generation of statistics on 
certain critical parameters of Phase II operations 

* introduction of toggle directives to control Phase II 
and subsequent Fortran IV operation. 

3. Shaping Functions: 

* introduction of a limited range of shaping and 
conversion functions: INTEGER, SCALAR, MATRIX, and 
VECTOR (no arrayed arguments or results). 

4. Program Calling: 

* setting-up operating mechanisms for calling independent 
(i.e. separately compiled) HAL programs to "any" nest 
level, non-recursive 
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* creation of mechanisms for saving HAL programs in an 
object library. 

5. I/O Routines 

* first, implementation of full-scale HAL READ/WRITE 
statements fixed , uni-channel input and output, fixed 
record length (printer and punch only) . 

6. Bit Strings: 

* fundamental bit string operators were implemented. 
Included were terminal an d array subscripting and the 
AND, OR, and NOT operations. Bit strings are limited 
to not more than 32 bits; they have been implemented 
in full-word, half-word, and byte form. 
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PRECEDING PAGE BLANK NOT FILMED 


5.0 HAL TRANSFERABILITY 

5 . 1 Technical Approach 


5.1.1 Background 

The quest for easy transfer of operational programs 
from one computer to another has occupied the minds of many 
men since the early days of computer technology. The importance 
of this capability has grown considerably as the computer explo- 
sion has populated our society with countless kinds and types 
of computers with ever decreasing and more attractive price 
tags, and yet soaring software costs through higher programmer 
salaries has made conversion more difficult due to the huge 
investment in operational software for existing computers. The 
solutions to the programming transferability problems can be 
categorized into one of the following types: 

1. Hardware emulators - In order to maintain compatibility 
many modern computers have included hardware or micro- 
program features that permit them to simulate other (usually 
older) computers. Thus, existing programs can still be 
executed. 

2. Software translators - A program is developed that will take 
programs that were written for machine X and translate them 
into equivalent programs for machine Y. This approach has 
been limited since the technique is seldom 100% successful, 
even when the two computers are almost identical. 

3. Higher level languages - If programming is confined to 
high level languages, hopefully machine independent, and 
a translator or compiler is used to produce the actual 
machine code, then it should theoretically be possible to 
feed the same higher level source statements into a trans- 
lator to another brand of computer and produce a program 
that performs functionally equivalent tasks. The diffi- 
culty here is whether the language and the interpretations 
given it by compiler writers are truly machine independent. 


5.1.2 Level of Transfer 

In the design of the HAL compiler system for the 360 
implementation, Fortran was adopted as the output language 
from the code generator. A principal reason expressed for the 
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somewhat unusual procedure was to promote machine transferability. 
Fortran IV is the most widely used programming language and ANSI 
Fortran IV purports to be defined in a machine independent way. 
Production of the HAL code generator was initiated with the 
avowed intent of producing ANSI standard Fortran IV. If this 
could have been rigidly adherred to, transferability would have 
been automatically produced at the lowest level. The output of 
Pass 2 would be suitable for submission to any Fortran compiler. 

As it is, there exists some 360 specific Fortran output and some 
assembly language subroutines, but the job required to take the 
Fortran output of the HAL compiler and move to another computer 
is a minor one. Figure 5.1 depicts the steps in the HAL compila- 
tion process. The Fortran output of Pass 2 may be physically 
moved (in card or tape form) to another computer facility. 

Contrast this transferability with the proposed system for 
construction of a HAL code generator for a flight computer. 

(See Figure 5.2) In this case, a new Pass 2 is required, the 
same output of Pass 1 (HALMAT) is used. This is the traditional 
approach. Every time that HAL is desired for a different target 
computer, another version of Pass 2 is required. This is a 
mid-level transfer. 

However, neither of the above approaches will satisfy the 
needs of another general purpose computer facility. The reason 
is that they are only partial transfers. Although they produce 
code for another computer, the compiler itself still must run 
on the initial computer, the IBM 360 in this case. This is poor 
operationally. It means that a user must submit his HAL source 
program to the 360 for compilation and then take the object 
program to the other computer for execution. ' (This approach is 
perfectly adequate for a flight computer where the usual mode 
of operation is via simulation on his general purpose computer. 
Besides, the flight computer is usually of such limited size 
that compilation on it is not possible even if one were physically 
available . ) 

A total transfer is needed for implementation on another 
large commercial computer. It requires that the entire system 
be transferred, "lock, stock and barrel". Then the user can 
compile and execute on the new facility with no further need of 
the 360. This is a more demanding requirement since it necessi- 
tates moving the entire compiler to a different computer complex. 
The result is a high level transfer or complete conversion. 


5.1.3 Method of Attack 

There are three avenues of approach that might be followed 
to achieve a compiler transfer. They are: 
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Fig. 5.1 Construction of the HAL Compiler System 










INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 


HAL 

grammar 


I Grammatical i 
Rule * 

Generator 


table of 
lexical & 
syntactical rules 


abstract 
, machine code 
tables 


HAL 

program 


Scanner 


Syntactic 

Semantic 

Analyzer 


Pass 1 


MACHINES : 

Compiler 

Target 

LANGUAGES : 

Source 

Compiler 

Target 


360 

360, FC 


HAL 

XPL 

Fortran IV for 360 
Assembler for FC 


(HALMAT) 


Fortran IV 

1 

xx 

Target Code 

Code 

1 

j 

Generator 

Generator 

I ! 

i 

For Flight 
Computer j 


Pass 2 


360 

Operating 

System 


Pass 2 


FC 

Operating 

System 


Fig. 5.2 Proposed Construction of HAL Compiler for Flight Computers 








1 . 


Reprogram the HAL compiler for Brand X: This technique 

looks at the process as a one-of-a-kind step and selects 
whatever seems most appropriate for machine X, be it assembly 
language or whatever. Then the job is done. This is the 
brute force approach and has no generality whatsoever. 

2. Reprogram the XPL compiler for Brand X: HAL is written in 

XPL, a simplified subset of PL/1. Thus, it would be rela- 
tively easy to transfer to another computer that supports 
PL/1; however., there are few that do. But we could transfer 
XPL to another computer. Since XPL is itself written in 
XPL, the transfer could be accomplished by a mid-level trans- 
fer. (A new code generator on the 360 that produced code 
for Brand X would allow a version of XPL to be compiled 

that would execute on Brand X.) However, this approach also 
lacks generality; each new computer requires another code 
generator, itself not an easy task. 

3. Reprogram HAL into a language more widely supported: If HAL 

could be rewritten in a language that was universally supported, 
than transfer problems would be minimized. The most widely 
used language is Fortran. And since Fortran is now produced 

by HAL, an interesting variation of this technique is imme- 
diately suggested. If HAL was rewritten in HAL and compiled 
on the current HAL compiler then the result would be Fortran 
source cards that would be suitable for compilation on any 
computer with a Fortran compiler. Thus, the transfer of HAL 
to almost any large scale computer could be achieved by 
minor changes to the Fortran output (chiefly in the area of 
data types and declarations) and the recoding of machine- 
dependent library routines. But the lattfer must be done 
anyway if HAL is to execute on Brand X; even the low-level 
transfer needed it. The extra task is the effort needed to 
rewrite HAL in HAL. But having done it once, it would not 
need to be done again to affect other transfers. The 
generality of this approach resolved the issue in its favor. 


5 . 2 Translation of XPL Programs Into HAL 


5.2.1 Introduction 

This is a brief discussion of the methods used when 
translating a program from XPL into HAL. It is intended to 
provide a useful guide to a process which requires a considerable 
amount of analysis and judgement on the part of the individuals 
performing the work. This end is achieved by presenting the 
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essentials of language differences and by discussing examples 
of coding economies possible through the use of HAL. Explicit 
illustrations demonstrate the translation of several XPL 
constructs into HAL. 

Translation of some form was necessary since it was intended 
that a copy of the HAL compiler be implemented on the Univac 
1108 . There were two general strategies available to Intermetrics 
as alternate means to affect this implementation. As one possi- 
bility, we could have rewritten or. modified the XPL system to 
implement it on the 1108, then we would have been able to 
recompile the original XPL source code of HAL on the 1108 . This 
approach lacks generality and involves the difficulties of 
emitting executable and efficient low level code for a machine 
with extant high level software. As a second alternative, we 
could rewrite the HAL compiler in a source language which maps 
via an existing processor onto a target language recognized by 
existing 1108 software. 

This latter course was chosen, using HAL itself as the 
source language, and using the HAL/360 compiler as the mapping 
onto Fortran IV, a target language understood by the 1108 (as 
well as other large scale computers) . This course procides a 
large amount of generality, and also proves to be easiest to 
carry out because of HAL's many high level features and the 
convenient degree of similarity between HAL and XPL. 

The two-dimensional input scanner employed in Pass 1 of 
the HAL compiler was chosen as an initial goal. If a program 
as complex as this worked satisfactorily once debugged, we could 
be fairly certain that no part of the compiler would create a 
problem. The translation strategies and methods described in 
this document were devised in the process of successfully 
rewriting the input scanner. As an added bonus of this choice 
of translation strategy, the use of HAL as a source language 
proved to be exceptionally helpful in the process of debugging 
the current HAL/360 compiler. Quite a number of bugs which 
were invisible prior to this large scale application were 
exposed and repaired in the process. 


5.2.2 Methodology 


5. 2. 2.1 Variables . Variable declarations differ somewhat 
between XPL and HAL. Each individual DECLARE statement must 
be examined for possible changes. 

BIT variables are declared identically in both XPL and HAL. 
The length specification is also identical in the two languages. 
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Ex . 


DECLARE X BIT (8); 


FIXED variables in XPL are functionally identical to 
INTEGER variables in HAL. Therefore, mere substitution of the 
word INTEGER for FIXED is all that is necessary to make the 
language change. The REPLACE facility in HAL is the simplest 
method of substitution. Note here that any XPL variable names 
which correspond to HAL reserved words must be changed or 
augmented; i.e., the XPL identifier VECTOR could become VECT0R1 
in HAL. Note also that the break characters @, #, and $ are 
hot legal identifier break characters in HAL and XPL identifiers 
using them must be replaced by legal HAL identifiers. 

CHARACTER variables have somewhat different properties in 
XPL and HAL. In XPL, character variables are implicitly 
varying with a maximum length of 256 characters. However, 

VARYING character strings in HAL are currently limited to a 
length of 255. Thus, the general substitution rule for character 
declares is to change: 

DECLARE ALPHA CHARACTER; (XPL) 

to 

DECLARE ALPHA CHARACTER (255) VARYING; (HAL) 

In cases where a string is known to have a maximum length 
considerably less than 255 characters, it may be declared as 
such. Also, if a string is to be of fixed length (as with an 
initial unchanging value) , the VARYING attribute should also 
be omitted. 

Factored declarations in XPL and HAL are also implemented 
differently and involve a complete rewriting of the statements. 
For example: 


DECLARE ( I , J , K) FIXED, L BIT(8); (XPL) 

becomes : 

DECLARE INTEGER, I, J, K; (HAL) 

DECLARE L BIT (8); 


A word of caution is necessary at this point. XPL initializes 
all FIXED and BIT variables to "0" and all character strings to 
null strings unless otherwise specified by the INITIAL modifier. 

Any variable not explicitly initialized in HAL will have 
unpredictable contents. When in doubt as to whether the program 
itself initializes variables, include an INITIAL (0) specification 
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on the DECLARE statement (INITIAL ('') for character strings). 


The LITERALLY attribute in XPL is used to perform macro 
substitution for identifiers. The REPLACE statement in HAL 
performs the same function. The statement: 


DECLARE FOREVER LITERALLY 'WHILE "1"'; 

becomes 

REPLACE. FOREVER BY 'WHILE TRUE'; 


(XPL) 

(HAL) 


5. 2. 2. 2 Arrays . When transferring array declarations and 
specifications from XPL to HAL there are a number of ground 
rules to follow. First, XPL subscripts start at 0 and the 
dimension specified is the highest allowable subscript. There- 
fore, an XPL array declared with an arrayness of 99 actually 
consists of 100 elements and must be declared as such in HAL, 
since all HAL subscripts start at 1 for an array. Thus, 

DECLARE ABLE (99) FIXED; (XPL) 

becomes 

DECLARE ABLE ARRAY (100) INTEGER; (HAL) 

The word ARRAY must be supplied in HAL in array declarations . 

Frequently in XPL the name of an array appears without 
a subscript. This means an implied reference to the 0th element 
of the array. However , in HAL, an array name without an 
explicit subscript implies reference to the entire array, not 
the first element. Therefore, for conversion, all such 
occurrences of non-subscripted array names must be translated 
with the explicit subscript of 1. Thus, the following XPL 
segment : 


DECLARE ARR (9) FIXED, B CHARACTER; 

B = ARR; 
becomes in HAL: 

DECLARE ARR ARRAY (9) INTEGER, 

B CHARACTER (255) VARYING; 

B = ARR X ; 
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In general, unless the Oth element of an XPL array is 
known not to be used, indexing expresions must be augmented by 
adding one to the original subscript expression, and not by 
changing the computation of indices in other statements. This 
is especially true when array references are made using Boolean 
values of 0 and 1 as switches for referring to one of two array 
elements. Thus, the XPL sequence: 

IX = IY + IZ; 

VALUE = ABLE (IX) ; 

should become in HAL: 

IX = IY + IZ; 

VALUE = ABLE tv . . ; 

XX T X 

as opposed to the HAL sequence: 

IX = IY + IZ + 1; 

VALUE = ABLE ; 

XX 

as the latter form could possibly change the operational 
characteristics of the program. 

Finally, XPL allows the specification of a subscript on a 
variable which is not declared as an array. This allows certain 
machine dependent coding "tricks" to be performed. Consider 
the following XPL sequence: 

DECLARE INDEX FIXED, INDEXTAB (199) BIT (8); 

DO I = 1 TO 50; 

INDEX (I) = 0; 

END; 

This program in effect zero's out INDEXTAB with 50 references, 
rather than the 200 required to clear the individual INDEXTAB 
elements. This sequence is illegal in HAL and may be coded 
as follows in HAL: 

INDEXTAB = 0; 

where the non-subscripted version of the name implies setting 
the array to zero. 
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• An extra step is involved when translating statements 
utilizing arrays of character strings or bit strings. A 
colon (:) must follow the array element subscript, to distinguish 
it from the individual character or bit subscript which is the 
default in HAL for these types of variables. It may be used 
following any array subscript, but is required in the above 
named instances to prevent ambiguity. 

Ex : 

DECLARE A CHARACTER ( 5 ) , 

B ARRAY (10) CHARACTER (10); 


In the first statement, characters 1" to 5 of all ten 
array elements of B are set to the value of the characters in 
A; in the second statement, the first five array elements of 
B are set to the value of A (padded with blanks to make the 
total length ten) . 


5. 2. 2. 3 Built-in Functions . The XPL functions ADDR and INLINE 
are not available in HAL, and because of the machine independence 
of the language no corresponding functions exist. In the HAL 
compiler, fortunately, most such functions are used to mani- 
pulate data types not existing in XPL but which do exist in HAL. 


The SUBSTR and BYTE functions in XPL are replaced with 
character string subscript notation in HAL. Examples of 
both forms of BYTE and SUBSTR substitution follow: 


a. 


b. 


c . 


BYTE (CHAR_STRING) 
becomes 
CHAR_STRING 1 

BYTE (CHAR_STRING, N) 
becomes 


CHAR STRING,, , , 

— N+l 

SUBSTR (CHAR_STRING , START) 
becomes 

char_string start+1 to # 


(XPL) 

(HAL) 

(XPL) 

(HAL) 

(XPL) 

(HAL) 
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(XPL) 


d. SUBSTR (CHAR_STRING, START, N) 
becomes 

char _ string n at START+1 


(HAL) 


The functions SHL and SHR are used for doing word manipu- 
lation in XPL. For positive arguments, the SHL function may 
be replaced by multiplication by the appropriate power of two. 

The SHR function is more complex as integer division is not 
allowed in HAL. Since SHR is normally used to isolate a field 
of a packed word, the BIT shaping function can be used to achieve 
the same results. 

For example, the XPL sequence: 

DECLARE (ENTRY, PART) BIT (16) , 

WORD FIXED; 

PART = SHR (ENTRY, 4); 

PART = SHR (WORD, 16); 


becomes in HAL: 

DECLARE BIT (16) , ENTRY, PART; 
DECLARE WORD INTEGER; 


PART = ENTRY X TQ 12? 

PART = BIT 1 TQ 16 (WORD) ; 


In XPL, it is legal to assign the result of a relational 
expression to a BIT type variable. This is illegal in HAL. 
Thus, the statement 

TEST = A > B; (XPL) 

must become: 

IF A > B THEN TEST = TRUE; ELSE TEST = FALSE; (HAL) 


5. 2. 2. 4 Constants . The following constant conversion rules 
apply : 
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ABDF " or " (4 ) ABDF 


becomes 


HEX' ABDF ' 


"(1)11010" becomes BIN'11010' 

"(3)70346" becomes OCT'70346 1 

The quartal constant "(2)20312" must be converted to either 
BIN '1000110110' or HEX'236'. 

The use of the BYTE function, notably BYTE('C'), to allow 
use of the internal representation of the character as a numeric 
quantity is accomplished in HAL by stating BIT('C'), or 
INTEGER (BIT('C')) where implicit Bit-to-Integer conversion may 
not take place. 


5. 2. 2. 5 Procedures . In XPL, all subroutines and functions are 
declared as PROCEDURE'S. The RETURN statement may or may not 
pass back a value. If an XPL PROCEDURE which returns a value 
is called by the CALL statement, the returned value is ignored. 
In HAL , there are two classes of routines: PROCEDURE'S and 
FUNCTION'S. A PROCEDURE does not allow a value to be returned 
in the RETURN statement, whereas a FUNCTION demands that a 
value be returned. Thus, XPL PROCEDURE'S that return values 
must be declared as FUNCTION'S in HAL. Any such FUNCTIONS 
invoked by the CALL statement in XPL must be changed to the 
form: 


DUMMY_VARIABLE = FUNCTION NAME (X ) ; 


where the dummy variable is some unused name in the HAL program 
with the mode of the called function. 

Also, in XPL, all formal parameters are call-by-value 
parameters. This presents a problem in HAL because, 1) PROCEDURE 
and FUNCTION parameters may not be assigned values within HAL 
programs, unlike XPL which freely allows such assignments, 

2) the alternative in HAL, the ASSIGN list, is treated as a 
list of call-by-reference parameters, where assignments to 
such parameters are passed back to the calling program, whereas 
in XPL, parameter assignments do not reflect back to the calling 
program. Therefore, in all FUNCTIONS and PROCEDURES where 
assignments to formal parameters are made, a procedure prologue 
must be coded to assign the formal parameter (with an augmented 
name) to a local variable with the same declared properties 
with the original parameter name. Thus, the following XPL 
program segment: 
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ALPHA: PROCEDURE (BETA, GAMMA) ; 

DECLARE BETA FIXED, GAMMA CHARACTER; 
BETA = BETA + 1; 


END ALPHA; 
becomes in HAL: 

ALPHA: PROCEDURE (BETA_PRIME, GAMMA) ; 
DECLARE INTEGER, BETA, BETA_PRIME; 
DECLARE GAMMA CHARACTER (255) VARYING; 
BETA = BETAJPRIME; 

BETA = BETA + 1; 

CLOSE ALPHA; 


when BETA is used as an assigned variable in the procedure, 
whereas GAMMA is not. The HAL compiler itself can be used 
to detect such occurrences, since assignments to parameters 
will be flagged as errors, significantly reducing the amount 
of program scanning necessary. 

Note: Notice that the word CLOSE was used on the last 

line of the sample rather than the standard END. 

When closing a function or procedure in HAL, the 
word CLOSE is substituted for END. END is only 
used to signify the end of the DO loop or a 
DO case. 


5. 2. 2. 6 DO Statements. The DO case statement in HAL is 
similar to that in XPL, the only difference being that the 
first group of statements are executed when the DO case argu- 
ment is equal to 0 in XPL and the first group of statements 
in HAL are executed when this argument is equal to 1. The 
following XPL sequence: 
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DO CASE I; 
DO;/*CASEO*/ 

END ; /*CASE0*/ 

END ; /*OF DO CASE*/ 

translates to the following HAL sequence: 

DO CASE I + 1; 

DO ; /*CASE1*/ 

• • • 

END ; /*OF CASE 1*/ 
END;/* OF DO CASE*/ 


When translating a DO case group from XPL to HAL, 1 must 
be added to the argument of the DO case statement rather than 
to change the value of the variable itself. DO case statements 
are translated in this manner to preclude the possibility of 
causing errors elsewhere in the compiler. It is not really 
possible to be certain that the change of the variable's value 
might not cause problems elsewhere. The looping statement: 

DO IX = 1 to 10; (XPL) 

simply becomes: 

DO FOR IX = 1 to 10; (HAL) 


The word FOR is required to distinguish this type of DO state- 
ment from the DO CASE or DO WHILE statements. 


5. 2. 2. 7 INPUT/OUTPUT . The primary input/output statements in 
XPL are the INPUT and OUTPUT pseudo-variables. To read a card 
image , the following statement is used: • 

CARD_IMAGE = INPUT; 

Similarly, to write a line the following statement is used: 

OUTPUT = NEXT_OUTPUT_LINE ; 

Both pseudo-variables are character string type and imply a new 
input/output record on each occurrence. 


32 

INTERMETRICS INCORPORATED • 701 CONCORD AVENUE • CAMBRIDGE, MASSACHUSETTS 02138 • (617) 661-1840 



The corresponding HAL statements to read the same card 
image and print the same line are as follows: 

READALL ( 5 ) CARD_IMAGE; 

WRITE ( 6 ) NEXT_OUTPUT_LINE ; 

Note that READALL, not READ, is used for input, as this forces 
reading an entire card image. READ into a character variable 
stops at any legal input delimiter. 


5. 2. 2. 8 Format of HAL File . The format of the input file is 
for the most part free of conventions. The only exception to 
this is that Column 1 may only be used to contain special 
letters. The following letters may appear in Column 1: C, D, 

E, M, and S. 

These letters specify what type of line is contained on 
that current image. The letter C is to specify that the follow- 
ing text is to be treated as a comment and not actually compiled. 
D is used only for special compiler directives such as an 
INCLUDE file specified on this line. The letter E constitutes 
an exponent line which is part of the multi-line input format 
which HAL offers. M specifies that the following is the main 
line of the multi-line input, and S specifies a subscript line 
again which is part of the multi-line input. When using the 
single line format of HAL input, the M may be omitted from the 
line as long as text begins in Column 2 or after. The letter 
M is assumed on all lines which do not contain a character in 
Column 1 . The above exception is the only one which pertains 
to the format of a HAL program. 

Long and complicated HAL statements may be continued over 
as many cards as necessary just as in XPL. Certain equations 
which are broken up into several steps in the XPL version may 
be condensed into one large equation in HAL, resulting in a 
savings of temporary variables. (This is because XPL limits 
the number of expression temporaries in a statement to three 
registers. HAL has no such restriction.) 


5.2.3 Debugging 

The debugging procedure can be made quite simple by the 
use of various options which may be specified when compiling a 
HAL program. One may specify toggles on comment lines in HAL, 
which produce an identifier trace, a listing of the HALMAT 
code produced, and a list of the Fortran produced from Phase 2. 
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When errors occur, it is easy to trace the problem by consult- 
ing the three listings as mentioned above. Also, a check of. 
the cross-reference listing produced greatly speeds debugging 
time since it is possible to determine in which statement a 
variable is either referenced, declared, or set. When a new 
section of code is added, a toggle can be set in a comment 
line at the beginning of the HAL program, which disables the 
call to Phase 2 of the HAL compiler. This is done to save 
computer time, since Phase 1 could perform a syntax check. 

When all syntax errors are eliminated. Phase 2 could then be 
called and Fortran output could be produced and. subsequently 
compiled by the Fortran compiler. 

It is, of course, much easier to debug a higher level 
language program than to debug assembly code, since ideas are 
clearly specified by the code being read, whereas in assembly 
language the intent is not always quite clear. In fact, when 
translating the in-line code it was sometimes necessary to speak 
to the person who had originally coded that section before a 
clear understanding could be gotten in order that the transla- 
tion could be performed. 


5.2.4 Conclusions 

At the time of this writing, some HAL features are still 
unimplemented. Because of this, certain sections of the trans- 
lated code have as of now not been tried or debugged. However, 
that code which has been debugged and executed seems to prove 
that HAL is a language with which a large compiler can be easily 
written and debugged. The fact that HAL implements floating 
point arithmetic also eliminated a great deal of the complicated 
code necessary in the original XPL version. This fact alone 
made readability of the final copy much easier than the complicated 
in-line code which appears in the corresponding sections of the 
original copy. 
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5.3 Feasibility Demonstration ( "HAL- in- HAL" ) 


5.3.1 Objective 

The HAL-in-HAL program was written as an experiment to 
prove whether or not the HAL language was suitable for writing 
translator systems, as well as aerospace applications. The 
program consists of a rewrite of the two-dimensional read 
routines originally coded in XPL for the HAL/360 compiler, 
utilizing the conversion techniques outlined in Section 5.2 
above. These routines represent a full test of the character 
and bit manipulation facilities normally required for translator 
and system coding. 


5.3.2 Test Program Description 

The test program consists of an elementary scanning 
routine which utilizes the STREAM procedure for receiving its 
character-by-character input. STREAM converts the two-dimensional 
HAL input cards into the corresponding one-line format which is 
required by the scanner and subsequently the lexical analyzer. 

The test scanner repeatedly calls STREAM building-up identifier 
and numeric strings as tokens, as well as treating any special 
character as an automatic token. These are printed out as they 
are encountered. The test scanner is concurrently building-up 
an output line image which is a reflection of the input character 
received from STREAM. Whenever a semi-colon (;) is encountered, 
the current statement line, along with its corresponding over- 
punch markers, is printed, showing what the one-line format of 
the HAL statements looks like. A question mark (?) is used to 
indicate the end of the input stream for the purposes of this 
test. See Figure 5.3 for a flow chart of the test scanner. 
(Program listing - Statements 544-582 in Appendix B.) 


5.3.3 Results 

The HAL-in-HAL experiment has proved conclusively that 
HAL can be used successfully as a compiler implementation tool. 
Although HAL has no machine dependent features, (which frequently 
are designed into implementation languages) , this experiment 
has proved that such features are not a requirement for compiler 
implementation, but rather merely a convenience item to circum- 
vent known code generation inadequacies in the compiler. The 
HAL implementation is concise, readily followed, and understand- 
able (even more so than the XPL version of the same program) . 
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Write 
'END OF 
TEST' 



Figure 5.3 (continued) 
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The checking facilities of the HAL compiler can detect 
numerous logical errors without having to impose the strict 
definition rules of XPL. Unitialized variables are easily 
detected, as are parameter mis-matches. The bulk of the debug- 
ging time for HAL-in-HAL was in streamlining the program to 
make the HAL version more readable, as well as more efficient, 
since the rule of adding one to all XPL subscripts as a general 
rule turned out to be both awkward and confusing in many 
instances. The final version of STREAM is much more efficient 
than the original translation performed utilizing the rules 
of Section 5.2. Programs originally coded in HAL will obviously 
not experience this problem. 
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APPENDIX A. 


HAL Course Material 
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PRECEDING PA^ thank NOT FILMED' 


PRECEA r ' : 


FILMED 


A . 1 OVERVIEW 
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PREFACE 


HAL developed by Intermetrics, Inc. 

* Language design 

* Compiler design and implementation 

Significant Objectives 

* Increased readability 

* Increased reliability 

* Real time control 

Capabilities 

* Primarily designed for on-board computer 

* General enough for: 

ground support and verification 
other real-time applications 



SHUTTLE LANGUAGE REQUIREMENTS 


* Software Applications 

* Navigation, guidance, targeting * Data management 

* Vehicle control * Communications and displays 

* Operating systems * Support software 

* On-board checkout and monitor 

* Computer Environment 

* Wide range of computers (Flight and Ground) 

* Fixed- and floating-point 

* Simplex, multi -computer, multi -processor 

* Language Characteristics 


* 



Clarity and readability 

Enforcement of standards and conventions 

Extensive automatic checking (compile- and run-time) 

Facilitate software management 

Promote modularization 


H i is £1*3 ll & fj 

□ Lkzza u u d li LL; 


J 2 iL=& ti! 


Uissr a 


SLIDE 2 



CHRONOLOGY OF SOFTWARE DEVELOPMENT 



Some Observations 

1. The writing of code is closely tied to the specifications. 

2. The time required for computer preparation is small compared to the program life. 

3. A lengthy period of debug and modification must be provided. 

4. Period of program usage extends many times that of program generation. 

5. Many more people will use a program than generated it. 



Conclusion 

The computer language should promote understanding of the . software . 
listing should tend toward self-documentation. 


SK-3 <3=0 t7-«israr=S’ 3 etsarpsar 

y i i n Iks i ifiSiUsa 


The 
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SALIENT FEATURES OF HAL 


Capability 

1. Two-dimensional Input-Output 
Annotation of variables 

2. Complete vector-matrix arithmetic 

3. Data array and structure handling 

4. Bit and character manipulations 

3. Real-time control statements 

6. Data-Poo! (COMPOOL), controlled 
sharing and name scope 


Requirement 
Increased readability 

Targeting, guidance and control 
Data management 

Systems, communications and I/O 
Command and control 
increased reliability 



ADVANCED FEATURES 


•' TWO-DIMENSIONAL (MULTI-LINE) INPUT AND OUTPUT’. 

• VECTOR AND MATRIX DATA TYPES AND OPERATORS 

• TASK SCHEDULING AND SYNCHRONIZATION STATEMENTS FOR REAL-TIM 

CONTROL 

• CONTROLLED SHARING OF DATA AMONG MULTIPLE USERS THROUGH A 

' COMPOOL AND DATA LOCKING STATEMENTS ’ 

, 

00 

• STATEMENTS TO MANIPULATE DATA-G ROUPS (ARRAYS AND 'STRUCTURES) 

AND ‘POWERFUL METHODS TO PARTITION AND INDEX THEM 

- OUTPUT ORIENTED. LANGUAGE IS SLANTED TOWARDS PRODUCTION OF 
Xi.i> UNDERSTANDABLE AND UNAMBIGUOUS OUTPUT LISTING RATHER THAN,. 
7 MINIMIZING KEYSTROKES ON INPUT 

.Mai • (A SIMPLE SCIENTIFIC SUBSET IS DEFINED AT THE OUTSET THAT WILL 
’ - tM PERMIT EASY USE BY THOSE WITH A SCIENTIFIC BACKGROUND 


I 


rn 



HAL Data Type; 


4 ^ 

VO 




and Organizations 

/ 


Organizations 



/ 


BIT STRING:NAME, CHARACTER. STRING:, MAME,' 
ARRaYjINAMEJ,- STRUCTU RE: {N/WsE} 


t 














EXAMPLES OF DATA TYPES 


SCALAR: -126.04 

INTEGER: 126 

VECTOR: 5, -26.4, 3.061 

MATRIX: 5, -26.4, 3.061, 

I, -67. 2, 106. I, 

0, 73.29, 0.06 

BIT STRING: I 0 I I 0 I 0 I 

CHARACTER STRING: VOLTAGE ON BATTERY B 2 VOLTS 

BELOW SPEC 



STRUCTURE ORGANIZATION OF DATA 


DECLARE 1 NAV_STATE (2); 

2 STATE (2), 

3 TIME PRECISION (8), 

3 R VECTOR PRECISION (10), 

3 V VECTOR PRECISION (10), 

2 STATE JLAGS, 

3 BODY_RAG BIT INITIAL (TRUE), 
3 PHASEJLAG BIT, 

2 W MATRIX (9, 9) PRECISION (10); 



HAL PROGRAM ORGANIZATION 
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' SCOPE OF NAMES 

Scope is the region in which a name is recognized. 

Scopes are defined from the outermost block toward the inner; i.e. , 


Com pool -^Program 


Task 

Procedure 
■^Function 


Procedure 

Function 


) 


Names defined in an inner block are never ' recognized in an outer 
b'ock inner blocks effectively isolate locally defined variables. 



BLOCKS OF CODE (NAME SCOPE) 


U1 

rfs. 



A,B,C are vectors (5) 


A is now an integer 


A is now a bit string 
X is a scalar 


X is a vector (4) 


SLIDE 7 









HAL Statements 


1. Assignment 

LABELVARIABLE = EXPRESSION; 

2. Declare 

DECLARE ( 

3. Control 

GO TO - — ■, IF-statements, DO-statements, 

4. Block 

Procedures, Functions, Tasks, Updates; -Programs 

5. Real-time Control 

Schedules, Waits, Signals, Locks 



EXAMPLES OF ARITHMETIC OPERATIONS 


(From Apollo Navigation Equations) 


c/i 


HAL 



Z = W B; 

OMEGA = Z W T /(ZMAG 2 + ALPHA 2 ); 

DELX = OMEGA DELQ; 

X = X + DELX; 

F = 1 + (ALPHA 2 / (ZMAG 2 + APLHA 2 )) 1 / 2 ; 
W = W - OMEGA Z/F; 


GSOP Specification 


Z = W' b 


T 1 „T „,T 

w = -r To z W' 

Z 2 + a 


6X = w 6Q 


X = X' + SX 


to Z " 


W = W' - 


1 + 


~= 2 " 

a 


2 —2 
Z + a 




where b = geometry vector 

W H square root of covariance 
— 2 

a = measurement variance 
X = state vector 



CONTROL, LOGIC AND COMPUTATION 
(Cross product steering of Apollo vehicle) 


U1 


Involves scalars, 3-d vectors, 3x3 matrices, "Booleans" 


XSTEER: IF TGO < 4 THEN DO; 

OMEGA_CNB = 0; 

SW = OFF; 

SCHEDULE ENGINE_OFF AT (TIME+TGO) 
PRIORITY (20) E_OFF_ID; 
GO TO START; 

END; 

DELM = C B DELT - DELV; 

OMEGA__C - K (VG*DELM) / (ABVAL (VG) ABVAL (DELM)); 

"k k 

OMEGA_CNB = SMNB REFSMMAT OMEGA_C; 

GO TO START; 



where TGO = "time-to-go" 

VG = "velocity-to-be-gained" 
OMEGA = rate command 



EXAMPLES OF MATRIX PARTITIONING 


cn 

OD 


Given: 9x9 covariance matrix E of errors in position. 


and landmark 

location . 

That 

is , 


E 

P-P 

* 

E 

p-v 

K* 

V 

1 

Jo 

! 

* 

E = 

* 

E 

v-p 

* 

E 

v-v 

* ■ 

h v-z 


* 

E £-p 

* 

E 2,-v 

* 

E z-z 


1 . RMS Errors 


RMS_POS = SORT (TRACE 

TO 3, 

1 

TO 

3> > ; 

RMS_VEL = SQRT (TRACE (E 4 

TO 6, 

4 

TO 

6> ); 


velocity 


2. Initialize E for new landmark 


E 1 

TO 

6 , 

7 

TO 

9 

• < 

o 

II 

* 

E 7 

TO 

9, 

1 

TO 

6 

= 0; 

* 

E 7 

TO 

9, 

7 

TO 

9 

= MATRIX 



3,3 


(A 2 , 0, 0 
0, B 2 , 0 
0, 0, C 2 ) ; 
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BIT AND CHARACTER -MANIPULATIONS 


cn 

<£> 


Suppose the system- status word is made up as follows: 

SYSTEM STATUS 


Example : 


DECODE: 




n 



r i 


J 

Li 


— 

O 

! i 

i 

i 

JL. 

0 


v 

system 


-A. 


y 

status 


A = ' SYSTEM STATUS : ' ; 
DO CASE SYSTEM STATUS 


1 TO 3; 


r , , ' 

MESSAGE = ’ENGINE' | jA; 

MESSAGE = 'POWER' | [A; 

/ 9 

MESSAGE = ' IMU ' { j A? 
MESSAGE = 'LIFE SUPPORT' 


|A; 


* 

* 


CASE 1 
CASE 2 
CASE 3 

CASE 4 

* 

* 

* 


END; ' . 

DO CASE SYSTEM_STATUS 4 tq g 

MESSAGE = MESSAGE j I'O.K. ' ; 

MESSAGE = MESSAGE | [ 'RECONFIGURED' ; 
MESSAGE = MESSAGE | } * IN SELF-CHECK' ; 

k 

k 

k 

END; 

r 

END_DECODE : WRI TE ( D I SPLAY ) MESSAGE ; 

i HiL^ 


CASE 1 
CASE 2 
CASE 3 


k 

k 

k 
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EXAMPLE OF IF- STATEMENTS 

(Flag-checking in Apollo Rendezvous Data Processing) 


A: WAIT FOR SYNCHJSIGNAL ; 

IF REFSMMAT_FLAG THEN 

IF R_6 0_OP THEN GO TO A; 

ELSE IF UPDATE_FLAG THEN DO; 

IF VHF_RANGE THEN. 

IF TIME> 60-TIME_VHF THEN GO TO VHFREAD 
GO TO D; 

END; 

ELSE' IF TRACKFLAG THEN GO TO D; 

GO TO EXIT; 

Note: ELSE always refers to immediately preceding IF (except when IF 

is within a DO group) 



EXAMPLE OF A PROCEDURE 


(The Apollo Time-Radius Routine 
from GSOP) 


CALLER : 

CALL TIME_RADIUS (RT2, VT2 , (ABVAL (RT2) - 30480), MU_EARTH, 
T_R_FLAG)) ASSIGN (TIME_32, RT3, VT3) ; 

cn SUBROUTINE: 

j_i 

• 

TIME_RADIUS: PROCEDURE (A,B,C,D,E) ASSIGN (F , G, H) ; 

, Statements'] 

i i 

i i 

I ! 

RETURN; 

END TIME_RADIUS ; 

"Call-By-Name" , 


NOTE: 


Call-By-Value" 



EXAMPLE OF A FUNCTION 


'k k 

ABLE: N = TRACER (A+B) ; 

GO TO BAKER; 

k 

TRACER: FUNCTION (Q) ; 

DECLARE Q MATRIX (A,*); 

k 

IF TRACE (0) > 100 THEN 
' RETURN (Q Q -1 + Q + QQ 
ELSE RETURN (0 ); 

END TRACER; 


NOTE: "CALL BY VALUE", "run-time" 


k k k 

+ QOQ) 


dimensions 



PROGRAMMING REQUIREMENTS FOR 
REAL TIME SPACE APPLICATIONS 


Scheduling and Tasking 

Software performs time critical functions and responds 
to interrupts in a complex environment requiring the 
capability to schedule, control and synchronize tasks. 


Recovery From Error Conditions 

Techniques are required to protect and enable system 
to "continue" after detection of unexpected error 
condition. 

Common Memory Sharing and Control 

Techniques are required to dynamically control the 
use of common data elements among tasks in the 
environment. 



EXAMPLE OF HAL REAL-TIME CONTROL 




c 

□ 



f] 
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ENDMANU and ENDMEAS are programmer-defined events 







REALTIME STATEMENT EXAMPLES 


SCHEDULE TARGETING PRIORITY®; 

SCHEDULE RADAR ON R_RUPT PRIORITYIPRIO + 2) RADAR_PROG; 
IF TRACKFLAG = ON THEN SCHEDULE AUTOMANEUVER IN 5; 

ELSE WAIT UNTIL (TIME + 5); 

SCHEDULE STEERING ATUGNITION + 3)PR I OR ITY(IO) INDEPENDENT; 
TERMINATE RADAR_PROG; 

WAIT FOR OK; 


SIGNAL OK; 



CONTROL OF SHARED DATA 


EXAMPLE 1: READ AND WRITE CONFLICTS 


A: TASK; 

^JJPDATE; 


B: TASK; 

* * <! — 
M = N + P; 

CONTROL 

$ 

N = XY;^ 

CLOSE A;^ 

CLOSE; 


CLOSE bT^ 


UPDATE; 


CLOSE; 


EXAMPLE 2: UPDATE CONFLICTS 



NOTES: 


1 . 

2 . 


B "INTERRUPTS" A IN BOTH CASES 

#1 TASK A RESUMES USING OLD AND NEW VALUES FOR N 

#2 TASK A RESUMES "CLOBBERING" THE VALUE FOR Y SET BY TASK B 







ERROR CONDITION STATEMENTS EXAMPLES 


ON ERROR^ GO TO ABLE; 

ON ERROR, Tn , GO TO BAKER; 
I !U ) 

ON ERROR 4 SYSTEM; 


E_RUPT ERROR,; 



SUMMARY 


HAL emphasizes reliability 

I * 

* Readability 

* Data protection 

HAL is a full-capability language 

* Includes all data types 

* Real-time control statements 

* Supports on-board computer software 

* Floating- or fixed-point syntax 

* Supports ground, checkout, simulation software 

Schedule of Events 

* First version delivery to MSC in June, 1971 

* Development to continue compatible with Shuttle schedule 
□ * Object-code-moduie required for selected on -board-computer 



A. 2 LONGER HAL COURSE 
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HAL Data Operations - 1 


Arithmetic 

Ail common operations including: 

* Vector dot, cross and outer - products 

* Matrix multiplication, inverse transpose 

* Integer mathematics 

* Combined integer-scalar operation 
Bit String 

Logical AND, OR, NOT, of: 

* Long bit strings, bit-by-bit 

* Single bit "booieans" 

Concatenation 

Character String 

Concatenation of characters and data into messages 
Arrays 

Most valid e!ement-by-element operations apply to arrays 



HAL Data Operations - 1 1 


Comparisons 

A comparison of data always results in a single TRUE or FALSE answer. 
* Absolute comparison 

VECTOR, MATRIX, ARRAY, STRUCTURE 

NOT* 


* Absolute and Relative Comparisons 
scalar 
integer 
bit 

character 


NOT* 

<= 

>= 

NOT < 

NOT> 

> 

< 


n* 


EXAMPLES OF DATA OPERATIONS - I 


Arithmetic Operations 

I = (-J ) 3 + K ( 3+J) ; all integers 

"D ^ m 

A = P/R + R - V.M V; scalars, vectors, matrices 

B = -P'* V + 5 M V + A(V.P) 2 F + F/(V.V M) ; scalars, vectors, 

matrices 


= -M N + M 1 + V V/A - (M+N) T ; scalars, vectors, matrices 

_ r A 

A = I/J + B J + J ; integers, scalars 



EXAMPLES OF STRING OPERATIONS 


Bit String 

D = B AND C; 

D = A OR (B AND C) ; 

A = D| iNOT B j | (B AND C) ; 

Character String 

C = 'PLEASE' | j ’HELP' ; 

D = 'THE ANS. IS' | |x| | 'N.M. ' ; 



EXAMPLES OF ARRAY OPERATIONS 


" Two-array " operations : 


~[P]/[AJ, 


[P] * [V], [R] CP] / 


[Al OR [B] 


One-array operations: 


[P] 


— P/ [A] , P * [V] , R 




[A] OR B 



EXAMPLES OF COMPARISON OPERATIONS 

IF l>J THEN 

IF A NOT<TX 2 - 5 V.V) THEN 

DO WHILE S ■ (A AND B) ------ 

IF M = N THEN 


DO WHILE [A] NOT - IB] 


HAL Explicit Declarations 

* in general, all data must be declared by declare statements 
(with the exception of those permitted by implicit declarations). 

* The declare statement specifies the name, organization, type 
and attributes of data quantities. 


Keywords used in declare statements: 


Organization 

Type 

Attributes 

ARRAY 

INTEGER 

PRECISION 


SCALAR (optional) 

INITIAL 


VECTOR 

CONSTANT 


MATRIX 

STATI C 


BIT 

AUTOMATIC 


CHARACTER 

LOCKTYPE 

DENSE 



ALIGNED 

VARYING 



• EXAMPLES OF EXPLICIT DECLARATIONS 


DECLARE I INTEGER INITIAL (65); 

I is an integer with an initial value = 65. 

DECLARE X PRECISION (8) AUTOMATIC INITIAL (6.061); 

X is a floating point scalar with at least 8 significant decimal 
digits. 

DECLARE A ARRAY (5,3,4) VECTOR (6) PRECISION (10); 

A is a 5x3x4 array. Each element is a 6 dimensional vector with components 
represented to 10 significant decimal digits. 

DECLARE MATRIX (3,4) INITIAL (0) AUTOMATIC 
A, B, C PRECISION (10); 

A, B, and C are ail (3,4) matrices with automatic storage. All components are 
set to zero. 

DECLARE A PRECISION (10, 15) 

A is a fixed point scalar with 10 integer bits and at least 15 fractional bits 
(i.e. maximum value < 2^, granularity < 2'^). 



INDEX OPERATORS 


The "TO" operator 

Selects a subset of elements from element-i 
"TO" element-3. 

For example: 

A 1 TO 10 

The "AT" operator 

Selects a subset of N-elements starting at 
element-i. 

For example: 

A 10 AT 1 

The number of elements in any "partition" 
must be known at compile- time . 



EXAMPLES OF INDEXING - I 




* * 

1. Vectors and Matrices (given V ; M) 


1 

1 

1 

1 

1 

1 

04 

> 

-- scalar element, 


V 1 TO 5 

sub-vector, 


M 2 , 3 

— scalar element. 


S *,i — - 

— vector element. 

* 

M 3 AT P, 3 AT Q 


2. Bit and Character Strings (given S, C) 
single bit, 

^2 TO 10 sub-string, S g AT p 

/ 

C 3 TO # 


sub-matrix 


sub-string 


sub-string, 



EXAMPLES OF INDEXING - 11 


3. 


Arrays (given [A], a two-dimensional array of matrices) 

# 


tA1 l TO 4, 3 TO 6: 


[AI 

[A] 


P.Q 

* #.« O 



sub-array 

an array of scalar elements 
sub-array of vector elements 


4. Array of Bit Strings 
•» 

[A1 3 TO 5, s :l TO 6 
A 6,4 : 3 


sub-array of sub-strings 
one particular bit 



DO - STATEMENTS 


• DO - statements block out a set of statements which 

are to be treated as a single unit. 

* There are four types of DO - statements 

1. Simple DO-END 

2. iterative DO-FOR 

3. Iterative DO-WHILE 


4. 


Selective DO-CASE 



EXAMPLES OF DO-STATEMENTS - I 

Simple DQ-END 

IF X>5 THEN BAKER: DO; 

B A = B ; 

C = D? 

GO TO ABLE: 

END BAKER; 

ELSE CHARLIE: DO; 

Z = M V; 

F = v * z; 

IF Y = 0 THEN GO TO OUT 


END CHARLIE; 



EXAMPLES OF DO-STATEMENTS - II 


Iterative DO-FOR 

ABLE: DO FOR I = P TO (N/S) BY L WHILE N>0; 

X = Y 2 + A.J.; 

N = N - .006 X; 

P = 1; S = 2; L = 3; 

END ABLE ; 

Iterative DO-WHILE 

• # 

ABLE: DO WHILE {X > Y AND GO_FLAG = ON); 

X = Y 2 + Pi LQG(Z) ; 

# • • 

GO_FLAG = TRAKFLAG OR NAV_FLAG; 

Statements 

i ■ 

i i 

it 


limits and increment 
are computed once. 


X , Y and GO_FLAG 
are recomputed. 


END ABLE 



EXAMPLE: SEARCHING AN ARRAY OF DATA 


The final phase reference for Apollo reentry: 

DECLARE ARRAY !U3) VREF CONSTANT (994, 2103, 3922,...); 
DECLARE ARRAY '(13) RDOTREF CONSTANT (-690.0, -719,...); 
DECLARE ARRAY (13) DREFR CONSTANT (41.15, 60, 81.5,...); 


etc. 

INTERPOLATE: 1 = 0; 

DO WHILE (VREFj NOT< V) AND (V NOT< VREF I+1 ) 
1 = 1 + 1 ; 

END; 

GRAD = (V - VREF I )/(VREF ];+1 - VREF^) ; 
RDOTREF_V = RDOTREFj + GRAD (RDOTREF I+1 - RDOTREFj) 


GO TO CONTINUE; 



EXAMPLES OF DO- STATEMENTS 


III 


Selective DO-CASE (Computed DO-Statement) 


00 

U1 


ABLE: 


DO CASE N; 


X 


y 2 .- 


BAKER: DO CASE P; 


F = A + B; 
_ * _ 


G = M V; 
END ; 


GO TO CHARLIE; 
Z = W + 3; 

END ABLE; 


CASE 1 
O'- CASE 2 
CASE 1 
CASE 2 

CASE 3 
CASE 4 





EXAMPLES OF IF- STATEMENTS 


1. Simple: 


IF X = 5 AND Y > 6 THEN ABLE: GO TO PLACE; 


’ ELSE GO TO TRY AGAIN; 


2. Complex: 


IF X = 5 THEN IF Y > 6 THEN IF B OR C THEN Z = M V; 
ELSE CHOICE: Z = M _1 V; 


More Complex: 

IF S * (A OR B) THEN IF X > 5 AND Y > 6 THEN GO TO OUT; 

• • • • 

ELSE IF [A] NOT= [B] THEN [A] = [C] ; 


ELSE IF 


-THEN 


; ELSE IF 


THEN 


ELSE GO TO TRY AGAIN; 


note: ELSE always refers to immediately preceding IF. 



SELECTIVE INCLUSION OF OUTER-NAMES 


ABLE; 


Note; 


o Only B , D , F are recognized 

j outer names.' (A/C/E.-are 

I "rejected"). 

« A,E,are defined locally. 

J 


COMPOOL variable-names may be accepted, rejected and/or 
locally defined by combinations of DECLARE and OUTER 
statements. In order to use implicit declarations within 
a block (except for PROGRAM- level) OUTER— statement .must be 

present. 


PROGRAM; 

DECLARE A,B,C,D,E,F; 

I 
I 
I 

BAKER: 


PROCEDURE; 
OUTER B,D,F; 
DECLARE A,E; 

i 

i 

i 




PRECEDING PAGE BLANK NOT FILMED 


APPENDIX B. 

HAL-in-HAL Detailed Description and Listing 


B.l INTRODUCTION 

The output from the HAL-in-HAL experiment consists of 
the following: 

1. The HAL program listing, symbol table, and cross 
reference 

2. The output of the HAL program execution 

3. A listing of the source data read by HAL-in-HAL 
(a sample HAL program) 

B . 2 HAL-in-HAL PROGRAM DESCRIPTION 

This section will describe the general function of each 
of the routines in HAL-in-HAL. Refer to the program listing 
for specific details. 


B.2.1 STREAM (Statements 100-542) 


The overall- functions of the STREAM procedure are as 
follows: 


1. Convert the multi-line format of the input cards 

to a one-line format, which is required by the scanning 
and syntactic analysis routines. 

2. Process' Comment and Heading cards to aid readability 
of the source program, and also to enable certain 
compiler toggles for assisting the person who is 
debugging the compiler. 

3. Eliminate HAL in-line comments (strings contained 
between /* and */) . 

4. Perform substitutions for replace type strings (not 
demonstrated) . 

To convert input to one-line format requires the following: 
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1. Enclosure of each level of subscripting in parentheses, 
preceded by the dollar-sign character ($) . 

Ex. 

M SI 

s 1 

S 

becomes 

S1$(I) = S2$ (IX$ (I) ) ; 

2. Enclosure of each level of exponentiation in 
parentheses, preceded by two asterisks (**) . 

Ex. 

E 2 

E 2 I ; 

M S2 = X 

becomes 

S2** (2) = X** (I** (2) ) ; 

STREAM contains ten local subroutines which assist it in perform- 
ing its function. They are local because they are of no value 
outside of STREAM. The non-local procedures are general interest 
routines, which are useful at levels other than within the 
STREAM procedure. 


B2.2 CARD_TYPE (Statements 26-33) 

CARD_TYPE is a function which receives as input the first 
character from an input card and returns an integer typifying 
the card in one of five classes. 


B2.3 CHAR__INDEX (Statements 34-44) 

CHAR_INDEX locates one string within another, returning 
the relative position of the desired substring if found, and 
0 otherwise. 


B2 . 4 PAD (Statements 45-53) 

The PAD function forces a varying character string to a 
minimum specified fixed length by appending trailing blanks. 
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Its primary function is for WRITE list items. 


B2.5 I FORMAT (Statements 54-61) 


The I_FORMAT function first converts a number to a 
character string, and then adds high order blanks to force 
a right justified integer string of a specified fixed length. 
This routine is also primarily for WRITE list items. 


B2.6 ERRORS (Statements 62-82) 


ERRORS both prints error messages when reported, and 
saves a record of their occurrence for later reporting. It 
also will terminate the compilation if either too many or too 
severe errors occur during compilation. 


B2.7 PROCESS COMMENT (Statements 116-133) 


This routine processes heading cards, as well as looking 
for special debugging directives on comment cards. 


B2.8 STACK RETURN CHAR (Statements 134-144) 


This routine locates an available position in the 
return stack and records both a count and the character to be 
added to the output stream to formulate one- line output out 
of multi-line input. 


B2.9 READ CARD (Statements 145-157) 


This routine reads the next input card and prints the 
card previously read. (This is because a 'group is only 
defined by the next non-group card. ) It also counts the input 
cards and checks for an end of input condition. 


B2.10 ORDER OK (Statements 158-189) 


This routine verifies that cards are in the proper sequence 
to formulate a proper HAL group. It also signals when a group 
is completed. 
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B2.ll COMMENT (Statements 190-201) 


This routine removes 1 /* */' type comments from E and 

S lines, when they exist. 

B2.12 S CAN CARD (Statements 202-220) 


This routine scans E and S cards for non-blank characters, 
compressing multiple lines into one line, with an indicator 
recording which level the character appeared on. If an overlap 
occurs, the one closest to the M line is retained, and a diag- 
nostic is issued. 


B2 . 13 COMP (Statements 221-244) 

This routine is called when either an E line or S line 
is first encountered in a group. It keeps reading cards and 
calling SCAN until an entire E or S group is compressed into a 
single line as described in B2.12 


B2.14 GET GROUP (Statements 245-297) 


This routine is called to assemble a complete group, 
which consists of an M line and one or more E and/or S lines, 
formulating as output a single E line, M line, and S line, with 
corresponding indicators. 

B2 . 15 CHOP (Statements 298-306) 


This routine advances the M line character index by 1, 
forcing a new group to be read when the M line termination 
is reached. The information concerning the last character on 
the previous card is retained. 


B2.16 STACK (Statements 307-325) 

This routine builds on Exponent or Subscript stack 
corresponding to a single blank field on an M line; i.e., those 
subscripts and/or exponents related to a specified variable 
or function. This is in preparation for outputting from STREAM 
within stacked Return characters (see B2.8). 
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B2.17 BUILD XSCRIPTS (Statements 326-362) 


This procedure invokes STACK for building both the E and 
S stacks for a single blank field, including M line comments 
as blank fields. Residue blanks for which no E or S line charac- 
ters exist are treated as blank fields by the scanner (blank 
fields by the scanner (blank is a legal delimiter in HAL) . 


B.3 DESCRIPTION OF HAL-IN-HAL OUTPUT 

The output of the HAL program is interpreted thusly.. The 
program reads in a group of data cards. A group can consist of: 

1. a single M line 

2. one or more E lines followed by a single M line 

3. a single M line followed by one or more S lines 

4. one or more E lines followed by a single M line 
followed by one or more S lines 

Each group is then converted into one line of output to the 
scanning routine. A group of type 1 is transmitted directly 
except for elimination of redundant blanks. A group of the 
other three types involves processing of S line and/or E line 
stacks and the addition of the appropriate subscript and/or 
exponent enclosures (subscripting is performed first if the M 
line identifier has both a subscript and an exponent attached) . 

As the scanning routine continuously calls STREAM, identifier 
tokens are formed. All identifier and special character tokens 
are printed as they are encountered, including identifier over 
punches. When the token is a blank, a count of the blanks 
scanned is printed. 

The full output consists of the following: 

1. a printout of the entire card group just read, 
complete with card numbering 

2. a printout of the individual tokens encountered within 
the group just read (signalled by TOKEN= or BLANKS=) 

3. a printout of the combined one-line format and any 
possible over-punch characters whenever a semi-colon 
(;) is returned by STREAM. This represents a complete 
HAL statement as seen by the scanning routine (signalled 
by OVER and MAIN in succession) . 
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This sequence is repeated until the input is exhausted (signalled 
by a "?" for this test) . Note in the TOGGLE sequences where the 
subscript and exponent enclosures are added to the characters 
on the actual input cards. 
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H ft L 


COMPILATION 


PHASE 


INTERMETRICS, ' INC. 


PAGE 


'S) 

cn 


STKT SOURCE , • • •• ■ 

! Hi HALINHAL: PROGRAM; - - " 

c I ARCOEEG 

Cl THE FCLtOVilNG GRCLP CP DECLARES ARE CNLY TEMP CRAPY '<*• 

? R| REPLACE R RY ’REPLACE' 5 

3 M| R FALSE RY ’O'; R TPUF BY «1»; R EIT_l 3Y ’INTEGER’; 

6 Ml P JF_NCT BY .'IF 0 ='; R ICC PY ’IP I. =• i •• ■•••. 

J M | k CUT EY • WR I TM 6 ) ’ ; - 

c m| R FOREVER BY "aHILE 1 = 1 ’ ! 

1C Ml DEFAULT INTEGER; ' •* ' : 

11 M| DECLARE X^O CHAR ACTER < 70 INITIAL (' ’)! 

12 Ml C r CLAP. E CHARACTER ( 25S ) VARYING, BUILT, BUILT_UP, BUILT_TOKEN, BUILT_0_P; 

13 Ml CECLARE OLANK_FLAC CIT_1 INITIAL. (FALSE) 

14 M| CECLARE INTFGER INITIAL(O), 

14 m| E R R CR_CCU NT , MAERC_ POINT , MACRC_LIMIT, 

14 M| 0 L0_ IE VE L , NEN_LEVEL , 

14 Ml MAX_Sf VERITY, ST AT ERF NT_SFVFP. IT Y , 

14 Ml SAVF_SEVER ITY ARRAY(IOO), 

- 14 Ml ' SAVE.LINE ARRAY (100), FREVICUS.ERRCR, 

1? Ml CECLARE CCMFILING EIT_) IN IT I AL ( TPUF ) ; 

16-Ml DFCLARE INTEGER, TIMC-I, TIME2; 

17 Ml DECLARE MACF.C_ STREAM CHAR AC TER ( 255 ) VARYING; 

IB Ml CFCLARE MACRC_ FOUND EIT_1 INI T I AL { F ALSE ) ; 

IP M | DECLARE CARO_CCUNT INTFGER INITIAL(-l); 

?C Ml CCCLARE DISASTER LABFL; 

21 Ml CECLARE N E X T_ C F A R CHARACTER!!); 


LINE CURRENT SCOPE 

II 
I 2 

13 



I 4 
I 5 
I 6 
I 7 
i P 
I 9 
I 50 
I U 
I 12 
I 13 
I 1A 
I 15 
I 16 

I 17 

I IP 

I 19 
I 20 
I 21 
I ■ 22 
I 23 


HALT NHAL 

HALINHAL 

HALItNHAL 

MALI NHAL 

HALINHAL 

HALI NHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALI NHAL 

HALINHAL 

HALINHAL 

HALI NHAL 

HALINHAL 

HALINHAL 

HALINHAL 

HALINHAL 




HAL COMPILATION — PHASE 1 — .1 NTERMFTRI 

STMT - . SOURCE ..... 

22 Ml CECLA8F 0 VE R_ PUNCH CL A F AC T FR tl) : 

77 M| CFCLARE EL ANK_ COUNT INTEGER INITIAL(O); 

2 A Ml CE CLARE CONTROL ARRAY (1C) SIT (32); ... 

25 Ml CECLASF TCGPtFS CHARACTER (JO) INITIAL! ' 1 234 567S C 0 • ) ; 

Cl 

Cl 

■ Cl THE ARRAY CAR C_TY TF IN XFL IE REPLACED BY THIS FUNCTION 
Cl 

26 m | CASn_TYFE : ... 

26 Ml FUNCTION! SELECT) INTEGER ; 

27 Ml OFCLARF- SELECT CHARACTER ( 1 ) ; 

?H M| IF SELECT • = .•«• OR SELFCT = ' ' THEN RFTURN 2; «. 

29 MI IF SELECT = 'S’ THEN RETURN 3; 

?C Ml IF SELECT = 'F' THEN RETURN I; 

31 Ml IF SFLECT = * C * OR SFLFCT = 'O' OR SFLFCT = «H* ...... ■ .. - - 

31 M| THFN RETURN A; 

32 Ml RFTURN 0 ; 

33 Ml CLOSE CARO_TYPF ; . 1 ~ 

Cl 

Cl ..... 

Cl THE CHAR.INOEX FUNCTION IS THE SAME AS THE INDEX BLILT IN FUNCTION 
Cl 

34 Ml CH AR_ I NDEX : F LNC T ION ! STR I NG , P A TTE R N ) INTEGER: 

33 Ml ' CSCL ARE CHARACTER!*) .. STRING, PATTERN; . . 

36 Ml CECLAPF INTEGER, I, J, K; 

37 Ml J = LENGTH! STRING) ; 

3.3 Ml K * LENGTH! PATTERN) ; . 

39 Ml IF K > J THEN RFTURN G; 

AC Ml FLSF DO FOR I = 1 TC J-K+l; 

FI Ml IF STR INGHK AT I) = PATTERN THEN RETURN I; 

A? M | end; 


c s , • 

N 

c - 


r - 


LINE 

CURRFNT SCOPF 


1 

26 

HA LI NHAL 


1 

27 

HAL I NHAL 


1 

28 

HALINHAL . . 


1 

?? 

HALINHAL 


1 

30 • 

HALINHAL 


! 

31 

HALINHAL 


1 

32 

HALINHAL 


1 

33 

HALINHAL 


1 

» 

*2 

HALINHAL 


1 

35 

C ARD_TYPE 


1 

*5 

C APO_TY PF 


1 

37 

CAR.D_TYPE • 


1 

38 

CARD_TYPE 


1 

39 

C ARO.TYPF 



40 

CARD TYPF 


1 

A 1 

C AP.D_TYPF 


1 

4? 

C AP.D_TY PF 



43 

HALINHAL 


1 

44 

HALINHAL 


1 

4 5 

HALINHAL 


1 

4 6 

HALINHAL 


1 

47 

HALINHAL 


1 

48 

CH AR_ I NDEX 


1 

49 

CHAR_I NDEX ... . 


1 

50 

CHAR_ I NDEX 


1 

51 

CH AP_ I NDEX 

■■■ ■ 

1 

52 

CHAR_I NDEX 


1 

53 

C H AR_ INDEX 


1 

54 

CHAR_I NDEX 



5 ? 

char_index 


1 

56 

CHAP._I NDEX 
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PHASE 1 
• — SOURCE 


HAL COMPILATION 

STMT 

4 "* M| PE TUP A 0: 

A A m| CLOSE CHAR_ I NDEX ; 


C| HFRE IS PAO A FUNCTION FROM HALPASS! 

Cl ' ' ' 

AS HI PAD: FUNCTION ( STP INC . WIDTH) CHARACTER! 255 ) VARYING? 

A 6 Ml PFCLARF CHARACTER (*> , STRING: 

A7 M | LECLARE CHAR ACTER ( ?5 5 ) VARYING* TFMP_STP IMG? 

A R H| DECLARE INTFGER, L, WIDTH? 
ac ,/| (_ = L E NGTH (STRING) ; 

50 H| IE L < WIDTH THEM - 

5 C HI TF. HP_ SIR I NG = STRING II X70S(1 TC WIDTH-L ) ? 

51 Hi ELSE TEHP_STPING = STRING? 

5? HI RETURN TEM°_ S TR I NG ? •.< a.*. 

53 M CLCSE PAD? 

Cl 

C I 

Cl HERE IS THE FUNCT TON- I_f GRMAT -FRCM HALPASSl-/’ 

Cl ■ 

5 A h| I _ FORMAT: FUf CTI CM NUMBER ,W IDTH ) CHARACTER!*)?-.. 

55 Hi DECLARE CHARACTER < ?55> VARYING, STRING? 

56 M| DECLARE INTEGER, L, NUVEFR, WIDTH? 

57 Ml STRING = NUMBER? - - • ••.• - 

f.R HI L = LENGTH! STRING) ? 

5 c ■ M | IF L < WIDTH THEN 

57 Ml STRING = X70SU TC. WIDTH-L) -1J STRING?,..,-- 

6 C Ml RETURN STRING; . . 

61 Ml CLCSE I_FGRM AT ? 

Cl •• ■ ' -r 

Cl 

r| THE Fd LOW INC IS THE FRROF. PROCEDURE FROM PASS1. 


A of 

/<y 

/W/ 


LINE 

CURRENT SCOPE 

57 

CHAP._ INDEX 

53 

HAL INHAL 

59 

60 
61 
6 ? 

HALT NHAL - --- 
HAL INHAL 
HAL INHAL 
HAL I NHAL 

63 

PAD 

6 A 

PAD 

65 

PAD • -- - 

66 

PAD 

6.7 

PAD. 

68 

PAD - 

69 

PAD 

70 

PAD ■ ■ 

•7) 

pad--^- — 

7? 

HALT NHAL 

73 

76 

75 - 

76 

halinhal- 

HALT NHAL 

HALINHAL--*^ 

HALINHAL 

77 

I_FOF.H AT 

78 

I_FORHAT 

79 

I _FORMiAT 

80 

I_FOR MAT 

81 

I_FORH,AT 

83 

I_FORMAT 

83 

. I FORMAT - 

8 A 

I _F OR MAT 

85 

halinhal 

8 fa 
S7 ■ 
88 

HALINHAL 

HALINHAL 

HALINHAL 



v 



A l 

C 

OMPILATICN — PHASE 1 — INTER 

METRICS* ’I 

N 

c - 


STMT 


SOURCE - - 

• - • ■ 


LINE 

CURRENT 


C ! 



1 

8° 

HALINHAL 

62 

p| 

ERRORS: PROCEDURE (MFSS ACE , SE VSR I TY ) : 


1 

90 

EP. POP S 


C! 

PRINTS AND ACCOUNTS ECR ALL ERRORS - - 


1 

91 

ERRORS 

69 

PI 

CLCLARE MSG OAR ACT Eft ( 2 56 ) VARYING; 


1 

92 

ERRORS 

64 

M ! 

DECLARE MFSSAOF CHAR AC. T EP t * ) ; 


1 

93 • 

ERRORS 

65 

M 

Cr-CLARE SEVERITY INTEGER; - • 

.. . 

1 

94 

ERRORS 

'.} 6 

M 1 

FKKCR.CCUNT = EP.RfR_CCUNT + 1; 


1 

96 

ERRORS 

67 

PI 

MSG = ****** ERRCP * ' 1 1 EEROR_CCUNT I 1 ' OF SEVERITY « 

1 1 

1 

96 

ERRORS 

67 

P 1 

SEVERITY I! * II MESSAGE; 

. . 

1 

97 

ERRORS 

6 P 

M 1 

IF OR R CP_C GUM > 1 THEN 


1 

r, ^ 

ERRORS 

66 

P 1 

MSG = MSG |l •- LAST ERROR CN LINE * II PREVIOUS_ ERROR 


1 

99 

ERRORS 

66 

PI 

V. S I T E ( 6 ) M S G II * . *****•'; . 

- '•>•••>».*■ . 

1 

100 

ERRORS 

7C 

Pi 

SAVF_SFVERITYi(FF'PCR_C. CLNT) = SEVERITY: 


1 

101 

ERRORS 

71 

pi 

SAVE_LINE$(FRRCP._CCUNT) = CAPC_COUNT; 


I 

102 

ERRORS 

72 

M 

PRFVIGUS_F.RP.nR = CARC.CCUKT; . • ■ 

........... 

1 

10 3 

ERRORS 

73 

PI 

IF FRPCR.CCUNT >= 79 THEN ,00; 


1 

I 04 

ERRORS 

74 

M 

IF ERBCR.COUNT = 100 THEN 


1 

105 

ERRORS' 

74 

Ml 

W P. I T E 1 6 ) * TCC MANY ERRORS: CCPPILATICN ABORTED. * ; ..... 

• • -«-■ 

1 

106 

ERRORS 

75 

PI 

IFF CCPFILIMG THFN CC'PP IL IMG = FALSE; 


1 

107 

ERRORS 

76 

Ml 

ELSE GO TO DISASTER; /* THEN END IT THERE*/ 


1 

108 

ERRORS 

77 

M 

END ; ■>. 


I 

109 

. ERRORS 

T c; 

Ml 

IF SEVERITY > PAX_SEVEP. I TY THEN MAX_ SEVERITY * SEVERITY; 


1 

110 

ERRORS 

7 = 

; Kl 

IF SEVERITY > S T A TE ME N T_ S E VER I TY THEN 


1 

111 

ERRORS 

79 

Pi 

STATEMEMT_SEVER TTY = SEVERITY; 

— ." 


112 

ERRORS 

80 

PI 

IF SEVERITY > 3 THEN IFF COMPILING THEN. 


1 

113 

ERRORS 

PC 

P 1 

COMPILING = FALSE; 


1 

114 

ERRORS 

81 

H 

ELSE GC TO DISASTER; .. . ..... .... •• 

........ - 

1 

115 

ERRORS 


Cl 

END OF PA SSI ERROR 


1 

116 

ERRORS 


PAGE 



HAL COMPILATION — PHASE 1 — I NTERMETRI 

STMT • . • •• SOURCE- - • - .... 

8? ,v| CLOSE ERRORS; /* CLOSING ERRORS AND RETURNING. */ 

Cl 

c. I 

r | THIS NEXT PROCEDURE IS PR INT_SUMMARY ■ 

Cl 

»3 ,v| PRINT.. SUMMARY: PROCEDURE; ' - • 4 ' v - ' • 

fi/, M| WP ITF ( 6 )CARD_CCLKT II ’ CAROS WERE FRCCESSED' ; 

PR ft I (P fPRCR. COUNT = 0 T H r N WRITEI6) ' NO ERPCRS WERE DETECTED.’; 

86 Ml ELSE IF ERROR.COLNT > 1 THEN DC; • - 

87 M| WRITE (6) ERRCE.COjNT II ' ERRORS WERE DETECTED,' 

87 y | || • THE LAST ERROR HAS ON LINE * II PREVIOUS.. ERROR, 

f»p Ml WRITEI6) •*****SUMMAPY OF DETECTED- ERRORS.***** 1 ; 

?c Ml CC r OR I = 1 TC ERRCR.CCUNT; 

SO Ml VJRITH(e) ' ERROR H ’ I I I I I ' ON LINE ’ll 

CO M| SA VE_L I NF N I II ' OP SEVERITY • || 

EC M| SAVE_SEVERITY*I II * . ' ; 

R1 Ml END ; 

E3 M | FUSE WRITEI6) 'CNF ERROR WAS CETECTED WHICH OCCURRED OK LIKE ' II 
9T M| FPEVIC Li S_ ERROR I I ' OF SEVERITY ' II S AVG.SEVER ITYSl II 

94 M| TIME? = TIME;--- -■■■■ - - 

98 Ml I =T I ME 2- T I ME 1 ; 

« Ml WRITE ( 6 ) ' CARC-PRCCESSIKG RATE: • II 6000 CARO_COUNT/I II 

96 Ml ' CARDS PER MINUTE.' ; • — 

97 M. | WRITE ( 6 ) ' CLCCK TIME IS * II TIME?; 

98 Ml return: 

99 Ml CLCSE P?INT_SUMMARY; .. ~ - - 

ICC M I STRFAV: PRCCECURE: 

f | THIS PRIICFnilPr FILLS THE VARIABLES NFXT_CHAR , 

C| ARROW, AK'C OVER. PUNCH. 


C S , IN 

c . 



LINE 

CURRENT SCOPE 

1 

117 

HALINHAL 


lie 

HALINHAL 


lie 

HALINHAL 

, ,,. Mi . . J 

12.0 

HALINHAL - 


121 

HALINHAL 

| 

12? 

PR I NT_ SUMMARY 


123 

PR INT_SUMM. AR Y 


124 

?P.INT_SUMMARY 

1 

125 

PR IMT_SUMMARY 


126 

PR INT_SUMMARY 


1 27 

PR INT_SUMM ARY 


12R 

PR I N T_ S U M M A R Y 


1 2 Q 

PR INT_ SUMMARY 


170 

PR INT_SUMM AP Y 

-■ 1 

131 

PR!NT_SUMMAPY 


13? 

PR I NT_SUMM ARY 


173 

PR I NT_SUMM AR Y 

— l 

134 

PRINT_SUMMAP.Y 


135 

PR I NT_SUMM AP Y 

\srr*»-r 

136 

PR INT_ SUMMAP, Y 


■137 

PRINT_SUMMAPY 


13? 

PR INT_SUM,MARY 


139 

PR. I NT_ SUMMARY 

1 

140 

PR I NT_SUMMAR Y 


141 

PR I NT_SUMMAP Y 

■ •- • , 

14? 

PR I NT_ SUM MARY 


143 

HALINHAL 


144 

STREAM 

1 

145 

STPFAM 

■ , 

146 

STREAM 
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A l 

C 

0.MPILAT1CN — PHASE 1 — IN TER METRICS* .1 

N 

C . 


STMT 


. SOURCE -v - - . 


LINE 

CURRENT SCOPE 


C 1 

NEXT CHAR IS A ONE BYTE VARIABLE TEAT CONTAINS THE 

1 

147 

STREAM 


Cl 

NEXT CHARACTER IN THE INPUT STREAM. - :>-• -• i 


148 

STREAM 


C 1 

ARROW IS A HAIF WCPD VARIABLE THAT CGNTAINS THE 

1 

149 

STREAM 


C 1 

INTEGER WHICH REP°ESENTS THE RELATIVE 

1 

150 

STREAM 


Cl 

DISPLACEMENT CE THE CHARACTER IN NEXT.CHAR . , r --. 

1 

151 

ST PE AM 


C 1 

with respect to the last character. 

1 

152 

STP.r AM 


C 1 

A PDSSITIVE VALUE INDICATES ■' MOVE UP. 

1 

15? 

STREAM 


C! 

CVEP_ PUNCH IS A ONI- BYTE VARIABLE THAT IS FILLED 'WITH- - 

1 

154 

STREAM 


C 1 

A NCNi ZEPC VALUE WHEN A CHARACTER CTHER 

1 

155 

STREAM 


C 1 

THAN A BLANK APPEARS CIRFCTLY CVER AN 

1 

156 

STREAM 


r i 

M-LIN CHARACTER — THE VALUE IS THE BYTE VALUE . .. 

1 

1 5 T 

STREAM 


C. 1 

OF THE OVER.PUNCH. 

1 

1 5 3 

STREAM 


C 1 


1 

157 

stream 

101 

Ml 

DECLARE CHARACTER(255) VARYING, E_L I NE , S_LINE, M_L INE ; 

1 

160 

STREAM 

102 

VI 

CECLAP.E CHARACTER ( RQ 1 , SAVE_CARD, CURR ENT_C AR C ; .... .......... .. 

1 

1 6 1 

STREAM 

1 C? 

Ml 

DECLARE BLANKS CHARACTER ( 1 2 R ) INITIAL! * •); 

1 

162 

STREAM 

1 04 

V 1 

CFCLARE E_L I N E_ E P.R CHAP ACTER ( 50 ) VARYING 

1 

163 

STREAM 

104 

Ml 

INITIAL! 'FLUNG CHARACTER MORE THAN 1 LINE ABCVE . PRECEECI NG CHARACTER*.); 

1 

164 

STREAM 

1C C 

VI 

Ct'CLAPE C R D F R _ E R R CHAR ACT CP ( 27 ) INITIAL! ’SOURCE PROGRAM OUT OF ORDER*); 

I 

165 

ST PE AM 

1C6 

VI 

CFCLARE CHARACTER! 1) , PPEV_CAP.O, SAVE_NEXT_CH AR , SAVE_CVER_PUNCH ; 

1 

166 

STREAM 

3C7 

M 1 

DECLARE INTEGER INITIAL(O), LAST.E.INC, LAST_S_INC, E_P.LA.NKS, M_BLANKS, .... 

1 

167 

stream , 

107 

V 1 

S.HLANKS, FP> SP, t E X T_ L I V I T , E.CCUKT, L A ST_E_CCUNT , S_CCUNT , 

1 

368 

stream 

107 

Ml 

LAST_S_C01NT, I.NCX, CP, POINTER, ARRCW,.II; ' . 

1 

16? 

stream 

10!? 

Ml 

DECLARE ARRAY (2561 INTEGER INITIAL (0) , E_IN.O, S_INC, E_IMDICATQR, . 

1 

170 

stream 

3 OP 

V | 

S_ I ND IC AT C R ; 

1 

171 

STREAM 

107 

M | 

DECLARE B I T_ 1 INI T I AL ( FALSE ) , R ETURN I NG_E , R E TURN I NG_M , P. ETURN I NG_S , 

1 

172 

STREAM 

ICO 

VI 

. ENC_GP-CUP, V_CCM VENT , A R R C W_ E L A G ; ... 

1 

173 

STREAM 

no 

VI 

CECLARE B I T_ 3 IN I T IAL ( TRUE ) , F I R ST_C ALL_T C_ ST RE AM.; 

1 

17 4 

STREAM 

in 

Ml 

DECLARE AFRAYI2) CHAR AC TE R ( 1 ) , TY PE_C H AR ; 

1 

17 5 

STREAM 

. 112 

VI 

DECLARE' APRAY!?) INTEGER INITIAL (0), PETURN.CHAP.J ....... 


176 

STREAM ... ....... 

113 

Ml 

DECLARE CHARACTER I 255 ) VARYING, £_ STACK , S.STACK; . .. '! 

1 

177 

STREAM 

114 

v l 

CECLARE I NPUT_ F AC CHAR ACT EP (23 } INITIAL 

1 

178 

STREAM 

1 3 4 

Ml 

( * M /* */ EOF' 'EOF EOF'); ..... ... 

1 

17? 

STREAM . . ... 
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180 STREAM 
•181_STRE AM 
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STMT 

r I 
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115 Ml 
life M 
)17 M 
11? Ml 
i n Mi 
lie Ml 
115 M| 

120 Ml 
1?0 Ml 
120' M 

121 Ml 

122 Ml 
12? Ml 
12* Ml 
125 Ml 

125 Ml 

126 Ml 

127 Ml 
127 SI 

125 M| 
12'! S| 

129 M| 

125 Ml 

129 SI 

17 0 Ml 

131 Ml 

137 Ml 

13 3 Ml 


Q.MPILATION 


PHASE 1 
■ SOURCE 


I NTERMETRICS 


INC. 


TWO DIMENSIONAL PROCEDURES. 

GO TO S T R E A M_ S T A R T ; 

PRCCrSS.CCMNENT: PROCEDURE; 

DECLARE K' CHARACTER (1) : ■ ' . - 

DECLARE J INTEGER; 

IE CURRENT.CARCSl = ’ H 1 TEEM 

W R I T F ( 6 ) L1NF(1)» CURRENT_CARD${2 TO 4) /* ISSLE-A NEW HEADER*/ 


ELSE 


IE CIIRP.ENT_C ARCSl = 'C'-TEFN 

OC FOR 1=1 TO TFXT_L IMIT-1 ; 

IE CURP.ENT_CAP.Ct I = ' ' THEN DO; 



ELSE GC TC COMPLEMENT; 

IF K = *+• THEN CONTROL = TRUF; 

J: 

ELSE IF K * TEEN CONTROL = FALSE;., 

J: 

ELSE - — - 

COMPLEMENT: CONTROL = NOT CONTROL 


J; 


j: 




END; . 

END; 

END ; 

CLOSE PROOFS S_ COMMENT ; 




LINE 

CURRENT SCOPE 

IF? 

183 

STREAM 

STREAM 

186 

STREAM 

185 

PROOF SS_CGMMENT 

1 S6> 

PROOFS S_ CO MM ENT 

187 

PROCESS. COMMENT 

1 DC 

PROC ES S.CGM.MENT 

189 

PROCESS.COMMENT 

190 

PROCESS_C.OM.MFNT 

1 Cl 

PP. PC ESS_ COMMENT 

192 

P R 0 C F S S_ C 0 M M E N 1 

193 

PROCESS.COMMENT 

1«6 

PKOC FS S_C OMMENT 

19 = 

PROCE SS_COMMENT 

196 

PROOFS S_ COMMENT 

197 

PROCESS. COMMENT 

198 

PR OCFSS_ COMMENT 

199 

PROCESS.COMMENT 

200 

PROOFS S.CC'MMF NT 

201 

20? 

PPOCESS.COM MFNT 
PROCE SS.COM.M ENT 

203 
2 06 

PP.OC ESS. COMMENT 
PROOF SS.COMME! NT 

205 

PR QCE.SS. COMMENT 

206 

207 

PROOF SS.COMMENT 
PROCESS.COMMENT 

208 

PROCE SS.COMME NT 

209 

PPOCESS. COMMENT 

210 

PROCE SS.COMME NT 

211 

STREAM 
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T 
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STMT 



-SOURCE 

-- 



.. .... 


LIN’S 

CURRENT SCOPE 


f 1 







1 

21 2 

STREAM 


Cl 


■ .... 



- 

— : . . 

1 

213 

STREAM, - 

1 34 

Ml 

STACK_PETURN‘_CHAR: 






1 

214 

STREAM 

1 >4 

•‘■1 

PRCCEDURE t NliM 1 F i" , CHAP.B ) ; 






1 

715 

S T A C K _ R E T U R N_ C H A P. 

13*5 

Ml 

ITF CLARE INTEGER,- NUMBER, I : 






~ 

1 

216 

STACK_RFTURN_CHAR 

136 

Ml 

DECLARE CHAPR CHARACTER(l); 






1 

217 

ST AC K_ R FTUP N_C H A P. 

137 

Ml 

DC. FOR I = 1 TC 






1 

2 1 ° 

STACK_RFTUP.N_CHAP 

1 37 

M 1 

IF RETURN CHAR = 0 THEN 005 


^ . .... 

..... 


. .. ^ V 

1 

21 c 

ST-ACK_RETURN_CHAR 

138 

SI 

I : 






1 

220 

ST ACK_RETURN_CHAR. 

1 1C 

Ml 

RETURN CHAR = NUMBER; 





<v . 

1 

221 

ST AC.K_RETUP.N_CH AR 

1 ? c 

SI 

I : 






1 

22? 

ST ACK_RETURN_CHAR 


M 1 

TYPE CHAP = CHARP; 


... .. 

.. . 

. 


1 

???■ 

STACK_RETURN_CHAR 

140 

SI 

I : 






1 

224 

STACK_RETURN_CHAP. 


Cl 

THE. FOLLOWING STATEMENT IS FOR 

DEBUGGING PURPOSES 

ONLY. . 



.. v , „ t ,„. 


725 

ST A C K_ R E T U R N_ CHAR 


C 1 

CLT ’STACKED II CHARR || •" 

' 1 1 NUMB PR || ' ) 

- INDEX ( * II 

I 

II ’) 

i • 
* 

1 

2? 6 

stack_petup.n_chap. 

141 

Ml 

RETURN ; ..... 

- 




.. .. 


227 

ST ACK_R ETURN_CHAP 

14? 

Ml 

END; 






1 

22 a 

STACK_RETURN_CHAR 

14? 

Ml 

END; 






1 

22 9 

ST ACK_RETURN_CHAR 

144 

Ml 

CLOSE ST ACK_ P ETURN_CH AR ; ... 

- 



.. .. 



230 

stream 


C 1 







1 

231 

STREAM 


C 1 



. - - ■ ' •• 




1 

23? 

STREAM 

145 

Ml 

KEAD.CAP.C: 






1 

233. 

STREAM 

145 

Ml 

PROCFDURE ; 






1 

234 

RE AD_C ARD 

146 

Ml 

DECLARE END_CF_INPUT BIT_1 IN'IT IAL(FALSE) ; . ... . 

..... 





235 

RE AD_C ARD 

1 47 

Ml 

IFF ENC_OF_ INPUT THEN DC; 






1 

236 

R E AD_C AF D 

143' 

Ml 

C.URR E N T_C ARD = INPUT_PAC; 






1 

237 

RE AD_C AR D 

14 9 

Ml 

RETURN; 

. - ... . 

■ .t. - 


- 



238 . 

read_cabd ....... 

150 

Ml 

END; 






1 

239 

R E AD_C AR D 



.. , . ... 

^ 

v.-. . . 


--'.-A 

JJt 




151 

Ml 

RE AD < 5 ) CURRFNT_C ARC ; 






1 

240 

RE AD_C ARO 


C 1 

EMO_OF_ INPUT =' TRUF ;.- . 

•- - ?n>- ■ 


..... 

- - - - 




241 

RE AD_C ARD ... .. 

15? 

Ml 

CAl<D_CCLNT = C ARD_CCU NT + 1; 






1 

242 

RE AD_CARD 
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STMT 

■SOURCE - 




• v- 

LINE 

CURRENT SCOPE 




15 0 !•'! 

!= CARC_CCUNT NOT =0 THEM 00; 





1 243 

READ_C AR D 




154 M 

WR I TE ( 6 ) I_FCRM,AT ( C ARO.CCLNT , 4) 





1 244 

P.E AD_C ARD 




154 m I 

It t • || S AVE_C AR C i 3 II * 1* II S AVE_C ARO$ ( ? TO 

2). 

1 1 

•I'll 

C AR D_COUNT ; 

1 245 

RE AO_CARD 










| 246 

READ CARD 




] 5 5 M ! 

EMC; 









. .V. - 

1=6 m 1 

SA VF_CARD = C UFR ENT_C AR C ; 





1 247 

RFAD_C ARD 




157 m| 

CLOSE R E A C_ C A P, C ; 

■■ - ■ 




I 2.43 

STREAM 










! ?A9 

STREAM 




C l 
Cl 

.... . -■ ■ - • - 




... . 

1 250 

STREAM 



” * ’ ' 







| 751 

STREAM 




158 m l 

ERDER_CK : 










153 y 1 

FUNCTION (TYPE) fi!T_l; 





1 25 2. 

OROE R_OK 




159 Ml 

CFCLARE TYPE CHAP ACT FR ( 1 1 ; - ' •'* 



■ - * 

.... - 

1 253 

OROEP_OK •-'* 

• '• ■ 


" *" 

160 M| 

CC CASE CARD_TYPF (CURRENT.CAP.m) + 1? 





1 254 

ORDEP_OK 




161 Ml 

DO; / p C A S E 1 — ILLEGAL CAPC TYPE*/ 





1 255 

OP. DER_OK CASE 

x 



16? Ml 

ENC.GRGUP = FALSE; - 




• - ' • - w - 

1 256 

CP.DER_QK - - ■ 




163 M| 

RETURN FALSE; 





1 257 

OR CEF_OK 




164 Ml 

ENC; /*0F CASE 1*/ ' 





1 256 

OROE P_C!K 




165 Ml 

/* CASE 2 — E CARC*/ •• ' - 



.. 

: — ■ 

1 259 

ORDER_OK 

.... 


■“ 

165 M| 

E_ C A P D : 





1 260 

ORDEP._CK CASE 

2 




• * * ’ 0 





1 261 

OP OF P OK 




16 5 M | 

co ; 










166 M| 

IF CARC_TYPF(TYPF) = 2-OR--. a — 





■ 

! 262 

OROEP_OK— T— 




166 Ml 

CARD_TYFE(TYPE) = 3 THEN ENC.GRCUF = TRUE; 





I 263 

ORDER.OK 




3 6 ■> y | 

ELSE ENO.CPOUP = FALSE; 

r -' 




i 264 

OROER._GK 




.168 Ml 

RETURN TR'JF ; ■ ■ ... 1 • 


....... 


......... — 

1 265 

■ ORDER_CK ■ — 




165 M| 

ENC; /♦CASE 2 * / 




• • 

1 266 

ORDEP_OK 




170 Ml 

/♦CASE 3 — M CARO*/ GC TO F_C.APO; 




- ' 

1 267 

GP. DE P_OK CASE 

3 



171 M| 

DC; /* CASE 4 — S CARE*/ -- - -- - 


i . .. 

■■■ 


1 26S 

GP DE R_OK CASE 

4 ■ • 


* 

17? M| 

ENC_GRCUP = FALSF; 





1 269 

CROEP._OK 




171 M| 

IF f ARCLTYPE ( TYPE ) = ? OR 





1 270 

OR DE R_OK 
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1 77 

174 

175 

176 

177 
177 
171 
179 
IPO 
111 
IP? 

1 0 "5 
1 2“ 
18 5 
Ilf 
1 E 7 
188 
188 

190 

190 

191 
181 
1^1 

192 


INTERMETRICS 


SOURCE . . LINE CURRENT SCOPE 


M 1 

• CARO_TYFF (TYPE ) = 3 THEN RETURN TRU=; 


1 271 

OR DEP_CK 


Mi 

ELSE RETURN FALSE; ■ 


1 27? 

OR CEP_OK 


Ml 

END: /* CASE 4$/ .. 

. .... . ... 

1 277. 

GRCER_CK 


v 1 

CC; / -? C A S E 5 — A COMMENT*/ 


1 27H 

OR OEP_GK 

CASE 5 

Ml 

IE CAR 0_ TYPE! TYPE) = 2 CR 


1 275 

OR OF P_OK 


Ml 

CARO_TYPF (TYPE) = 7 THEN END_GRCUP = TRUE; 

-t 

1 276 

ORDER_OK 


Ml 

ELSE ENCLGRCUP = FALSE : 


1 277 

GP OEP_CK 


M | 

IE CURPENT_CARD$1 = 'P 1 THEN CO; 


I 278 

OR DFP_OK 


Ml 

IP TYPE = »C THEN RETURN TRUE; 


1 ? 7 ? 

OP CEP._OK 


Ml 

EL SF RETURN FALSE; 


1 2.80 

OP DEP_nx 


Ml 

ENCi 


1 281 

OR DE R_OK 


Ml 

ELSE DC; ... ........ 


1 28? 

n D nE r_ox 


Ml 

IF CAR 0_ TYPE ( TY°E) = 1 THFN RETURN FALSF: 


1 2 87 

OROE P_OK 


Ml 

ELSE RETURN TRUE; 


1 20A. 

OP DER_CK 


Ml 

ENC; 

. .. 

1 285 

ORDER_OK 


Ml 

END; /* CASE 5 */ 


1 ? 8 6 

OPOEP_CK 


Ml 

ENC; /*CE CO CASE*/ 


1 287 

OROEF_CK 

CASE 6 

Ml 

CLCSE CP.DE R_CK ; ... .. ..... ... 

. .... . r 

1 28 8 

STREAM 


C 1 



1 289 

STREAM 


r 1 

- ■ - 


1 290 

STREAM 

•’ - ^ 

M 1 

COMMENT: 


1 291 

STREAM 


Ml 

FUNCTION OIT_i; 


1 28? 

COMMENT 


Ml 

IE CURRENT_C ARCJCP = */’ THEN — ' • - ■ • 

. ... . 

1 293 

COMMENT - 


M 1 

IF CP < TEX T_ LIMIT THEN 


1 294 

COMMENT 


M| 

IF CUP.RENT_CARCS(CP ■* T) '= •*« THEN DO;' 

- • ’ *’« 

1 295 

COMMENT 


Cl 

LOOK FOR END OF COMMENT. ' -■ - 

- . • 

1 296 

COMMENT - 


Ml 

DC FOR CP = CP+2 TO TEXT_L IM IT-1 ; 


1 297 

COMMENT 





19 7 N| 


IE CURRENT_CARCSCP 


•** THEN 


298 


COMMENT 



HAL 
S T M T 


compilation 


in 

HI 

IF CURRENT_C ARCS ( C 

153 

Ml 

PETURN_TRUE: 

153 

Ml 

DO ; 

1-4 

Ml 

CP = CP + l; 

1.0 5 

Ml 

RETURN TRUE; 

1 c 6 

Ml 

END*. - • 

1 57 

M| 

ENC; 

IPS 

M| 

GO TO RETURM.TRUE; 

IP? 

Ml 

END; 

200 

K| 

RETURN FALSE; 

2 Cl 

Ml 

CLCSE CCMMENT; 


P H A S E 1 
■ SOURCE 

> / * THEN 
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Cl 

Cl 

202 M| 
2C2 Ml 
20T ' v l 
20 A Ml 
205 Ml 
20c Ml 
207 M'| 
205 Ml 
20C Ml 
2 OP Ml 

210 Ml 

211 M| 

212 Ml 
217 Ml 

214 y | 


SC«M_CAROt . . . ... 

PRCCEDURE(TYPE,CCUNT) ASSIGN! LIN, I NCI CAT 
CECIARE INDICATOR AftR A Y ( 2 c 6 ) INTEGER • 

DECLARE INTFGF.R, TYPE, COUNT; 

CH CLARE LIN CHARACTER!*); 

DO FOR CP = 2 TO TEX T_ LIMIT; 

IF C IJRR ENT_C A RCSCP NCT =•' ’ THEN CO; 

. IFF COMMENT THEN GO TO CONTINUE; 

IF L I N S C 0 NOT = ' ' THEN 

■CO CASE TYPE + 1; / *H A L 00 CASES START WITH 1*/ --.a'...;... 

/* CASE 1*/ CALL ERRORS! 'OVERLAPPING E-LINE CHARACTERS' ,1 ) ; 
oo;/* CASE 2*/ 

CALL ERRORS! 'OVERLAPPING S-L I NE CHAR ACTER S ’ , 1 ) : - - - — 

GQ TO CONTINLE; 

ENC; / *CF CASE ?*/ 



LINE 

CURRENT SCOPE 

29? 

COMMENT 

300 

COMMENT 

703 

COMMENT 

302 

COMMENT 

303 

COMMENT 

304 

COMMENT 

30? 

COMMENT 

306 

COMMENT 

307 

COMMENT 

30.°. 

COMMENT 

300 

STREAM 

310 

STREAM ... 

31 1 

STREAM 

312 

STREAM 

313 

SCAN_C ARD 

31 A 

SCAN. CARO • 

315 

SCAN_C APD 

316 

SCAN_C ARD 

317 

SCAN_CARD '. 

318 

. SC AN_C ARD 

31? 

SCAN_CARD 

320 

SCAN_C ARD 

321 

SC AN_CARD 


322 SC AN_C ARD CASE 1 

323 SC AN_C ARO CASE 2 
32A SC AN_CARO 

325 SCAN_C A P.D 

326 SC AN_CAR0 



A L 

C 

0. M P I l A T I 0 N — PHASE 1 — JNTERMETRI 

c s . 

INC. 


stmt 


: SOURCE .• ■ 


LINE 

CURRENT SCOPE 

215 

VI 

roc; /*c f no case type + i*/ 


1 327 

SCAN_C ARD CASE 

21 6 

V 1 

INC1CATCRSCP = CCUM; 


I 328 

SC AN_C ARD 

217 

Ml 

LIN5CP = C UP RENT_CARC 5 CP:. • 

..... 

1 329 

SCAN_CAP.O 

71° 

*1 

END; 


1 330 

SC AN_C ARD 

219 

M 

CONTINUE: 


1 331 

SCAN_C AP.D 

2 ! 9 

Ml 

END ; ....... 


1 332 

SCAN_CARD 

220 

f'l 

CLOSE SC.AN_C.ARC; 


1 33? 

STREAM 


r 1 



1 334 

STREAM 


Cl 



I 335 

STREAM 

221 

Ml 

COMP: 


1 336 

STREAM 

721 

f'l 

PROCEDURE (TYPE) ASSIGNIL IN* INDICATOR? CC-UNT) ; - 

- 

1 337 

COMP 

222 

M| 

DECLARE PC I NT CHARACTER ( 1 ) 5 


1 338 

COMP 

? ? ° 

Ml 

DECLARE INTEGER, CCUNT, TYPE: 


1 339 

COMP 

224 

M| 

DECLARE CHARACTER!*)* LIN; 


1 340 

COMP 

22 5 

Ml 

CfCLARE ARRAY ( 256 ) INTEGER, INDICATOR; 


1 341 

COMP 

22 6 

Ml 

IP TYPE = I THEN PCI NT = 'S'*, 


1 342 

COMP 

2?7 

Ml 

ELSE PCINT = 'E' ; ■■■■' 



1 343 

COMP 

225 

Ml 

COUNT = l; 


1 344 

COMP 

2?° 

Ml 

« 

DC FOREVER; 


1 345 

COMP 

2 30 

M| 

CALL • SCAN_CARO( TYPE, COUNT) ASSIGN ............ 


! 346 

COMP 

23 C 

M 1 

( LIN, INDICATOR ) ? 


1 347 

COMP 

231 

M 1 

CALL REA D_ CARD; 


1 348 

COMP 

23? 

Ml 

IF CURRENT.CARCil NOT = PCINT THEN DC; - -•* *■“**• 


1 349 

COMP- ... - 


Cl 

NC MORE OF THIS TYPE CARD. 


1 350 

COMP 

233 

Ml 

I E_NCT CEDE R_CK(FCINT) THEN 


1 351 

COMP 

233 

Ml 

CALL ER POPS ( CR CEP_ERR , 1 ) ; — ; : — 


1 352 

COMP - 

234 

Ml 

TO FOR CP = 2 TO TEX T_ LIMIT; 


! 353 

COMP 

235 

f'l 

IF IINSCP = ' ' THEN 


1 354 

COMP 



A V. 

C 

O.MP1LAT1CN — P 
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TMT 



SOURCE 

22*5 

N-i 

INCICATCR $CP = O'; 



Ml 

FLEE IF TYPF = 0 THEN CC; 


2 37 

Pi 

INCICATCRtCP = CCUNT-INCICATORSCP +1? 

238 

Ml 

FNC; 


229 

PI 

fnc ; 


240 

PI 

return; 


241 

p 1 

FNC ; 


242 

P| 

CCU NT = C CUNT + 1 ; 


242 

M| 

END; 


244 

PI 

CLCSF CCPP; 



Cl 




Cl 



24 5 

Ml 

GFT_GROUP: 


245 

Pi 

PSCCFCURF; ' 

.... ■ .. 

246 

M| 

E_L !NE = E_L I NC $ ( INDX TO «) 

11 blanks; 

2 '*7 

PI 

S_ l I N E = S.LINEitlNDX TC *) 

II ELAnks; 

24 « 

PI 

L AST_ E_COUNT = E_CCUNT ; 

- 

245 

M| 

L A S T_ S_COUNT = S_CCLNT; 


250 

P 1 

F_ CCIJNT » S_CCUNT = 0; 


25’ 

Ml 

- GC TO LOOP ; ...... - -. 



252 

Ml 

P F A D_ I T : 


252 

PI 

CALL REA9-.CARC; 


253 

Ml 

I P_NOT CRDER_CK ( PPFV_CAPO) 

THEN CO;- : 

254 

Ml 

CALL ERRCPS ! CRCFR_ERP. , 1 ) ; 


255 

Ml 

GO TO REAO_IT; 


256 

Pi 

FNO ; • • - ■ •• - -'••• 

- - ■ 

257 

Pi 

Lt. OP: 



257 P| IFF FND_GRCUP THEN GC TC FCUND.GRCUP: 
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35 5 

COMP 



356 

COMP 

' ’ 

... ... .... 

357 

COMP 



355 

COMP 



359 

COMP 

-r — « ' • - * 


360 

COMP 



361 

COMP 



362 

COMP 



363 

COMP . 



364 

STREAM 



365 

STREAPI 



366 

STREAM 

. , , . . .. „ * , . .... - . 

• • ,«M.. 


.... ~. 



’67 

STREAM 

• • - ■ 


768 

GFT_GRCUP - 



36° 

CET_GROUP 



370 

Gc T_GROUP 

— - - -- 

- ■ ■ 

371 

GFT_GROUP ■ 



372 

GET_GROUP 



373 

GET_GROUP 

... ■*** • 


374 

GET_GROUP ‘ 



375 

GE T_GROUP 

• * "Tr- ' . 


376. 

GFT_GROUP 

^ > *. :N- W.Vj.1 i . * , ■* 1 - • ' '■* 


377 

GET_GROUP 



378 

GET_GROUP 

»> **;*• » '"i — '•*»?«""• » * ..****’ »•* ~ ‘ 


379 

GET_GROUP 

«•*-*■*• *> 


380 

GET_GROUP 



381 

GFT_GROUP 


.... -rt*— 

382 

GET_GROUP 
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SOURCE ... • 

- - ■ 

LINE 

CURRENT SCOPE 

050 

PI 

cn CASE C AR[)_ TYP E ( CL'RR EN7_CA? DS 1 ) + 5; 


1 333 

GET_GROUP 

255 

M 1 

cn; /*CASE 1 , A DUMMY*/ END ; 


1 384 

GET_ GROUP CASE 1 

EM 

V ! 

DC ; / *C AS F 2 c-L IN*/ 

■ 

1 385 

GET_GROUP CASE 2 

26? 

?! 

CALC CCVP(O) ASSIGN 


1 786 

GET.GPOUP 

262 

PI 

( E_l I NE,F_ INDICATOR, E_CCUNT ) ; 


1 367 

GE T_GROUP 

263 

VI 

CC TC LCQP; ...... 



1 388 

CET_GR0UP 

2 6 A • 

! 'i| 

EMC; /#Q* CASE ?*/ 


1 389 

Gr-T_C-ROUP 

2 6 6 

VI 

DC; /*C ASE 3 HIW 


1 390 

GE T_GRCUP CASE 3 

26 6 

VI 

V_ LINE = V_L IN r $ t INDX TO ft ) || CUP.P. ENT_C ARDS t 2 

TO ft) ; 

I 391 

GET_0,RCUP 

267 

VI 

S A vr_c A RD$ 1 = * v ’; 


1 39 2 

GE T_GROUP 

26R 

V 1 

p R E V_C A R 0 = CUPPENT_CARC$] ; 


1 393 

GE T_C-P. OtJP 

269 

Ml 

GO 70 RE AD_ I T ; • • 


1 396 

GE T_ GROUP 

2?C 

M 1 

FNC; /*0F CASE 3 * / 


1 395 

GET_GR0UP 

271 

VI 

DO*. /*CASE 4 S-L IN*/ 


1 39 6 

GFT_GROUP CASE 4 

272 

VI 

CALL CCV.P(l) ASSIGN 

. . ..... •• . . 

1 397 

GFT_GROUP 

2 7? 

•■•1 

( S_LIN'E ,S_INCICATCR,S_CCUNT ) ’ 


I 39?. 

GET_CR0UP 

27? 

VI 

GO TO LCOP ; 

“ 

1 399 

GET_GROUP 

274 

Ml . 

ENC; /*CF CASE 4*/ ■ 

- 

. I 400 

GET_GP.OUP 

27 5 

VI 

DC; / *C AS F 5 COftvEMT*/ 


I 401 

GET_GP.OUP CASE 5 

276 

v 1 

PREV_CARD = CLRRENT_CARC$l; 


1 402 

GE T_GROUP 

277 

VI 

'call FRCCESS_CCMKENT ; 

.... ..... ... - -r- • 

1 403 

GET_GROUP 

273 

to 1 

GO TO READ_!T; 


1 404 

GET_GROUP 

275- 

VI 

FNC; /*GF CASE 5*/ 


| 405 

GET_CPCUP 

220 

VI 

ENC; /*CF DC! CASE*/ 



1 406 

GET_GROUP CASE 6 

20 ). 

VI 

FCLND_GROUP: 

, . _ . ,'_v • . 

1 407 

GF T_GR0UP 

281 

VI 

h R I T F 1 6 ) SKIP(l); 


1 408 

GET_GROUP 

2 8? 

M | 

ENC_GROU° = FALSF; 

■ •’ • . ■ ■ 

| 409 

G c T_GROUP . 

28? 

VI 

F_ L I NE ■= E_ L I N E S ( I TO l ENGTHI V_L I NE ) ) ; 


1 410 

C-ET_GROUP 


PAGE 14 



HAL 


COMPILATION 


PHASE 


I N C 


PAGE 15 


I N TERMS TRIOS 


STMT - SOURCE 

2 34 M| I F E_CCUNT NOT > C THEN DC; 

2 8 5 M'j DC FOR CP = 2 TO TEX T_ LIMIT; 


285 N| E_ I NT/ 1 C ATCR $CP = 0*. 

287 M| END; 

2BP. Ml F.CCUNT = LAST_E_COUNT; 

239 M I FNC ; 

290' M | S.LIfE = S_ L T N F S ( 1 TC L ENOT H 1 M_L I NE ) ) ; 
23 1 M| I E S_ COUNT NOT > 0 THEN OC ; 

29? Ml DC TOP. CP = 2 TO TF.X7_LIMIT; 

2^? Ml S_ I ND I C AT CR TC P = 0: 


2C4 Ml END; 


2 9 8 

Ml 

S_CCUNT = LAST_S_ 

COUNT ; 

2 C 6 

Ml 

END; 



Cl 

THE F CL LOW I MG STATEMENTS 


Cl 

OUT 'E L I N E = " ' 1 1 

c LINE 


r 1 

CUT ' M_L I NE=" ' 1 1 

!■'_ L INF 


Cl 

CUT ' S_L I NE = " ' II 

$_L I Nf 

297 

Ml 

CLCSE GFT_GRCUP; 



c 1 




cl 



2 3 p 

Ml 

CHOP: 


298 

Ml 

PRGCFDURF ; 




ARE FOR CEBUGGING PURPOSES ONLY 
II 

II""; 


299 n | . INOX = INDX +1; •• • ' >■■•• • • • r*--- TT- 

3C0 Mi IF INCX = TFX T_L I MIT THEN CO; 

Cl OUT OF DATA, GET MORE. 

301 Ml E_ INOI CATCP.tl * F_ I NC I C ATCR$TEXT_L I MI T ; , , 

30? M| S_ INDICATORS 1 = S_ I NC I C ATOP $TFXT_L I f'T T ; 

3 03 Ml CALL GFT_GRO(JP; 

30 A Ml INCX = 1; 

3C5 Ml END; 






LINE 

CURRENT SCCPF 

41! 

GET_GROUP 

412 

GE T_GROUP 

413 

GET_GRCUP 

414 

GFT_GRCUP 

415 

GET_GRCUP 

416 

GET_GROUP 

41 7 

GE T_GROUP 

418 

GET_GROUP 

419 

GE T_GROUP .. 

42 0 

GE T_GROUP 

421 

GE T_GROUP 

422 

GF T_GP.CUP ■ , 

423 

GET_GROUP 

424 
42 5 

426 

427 

GF.T_GROUP 
GET.GROUP 
GFT_GRCUP • 
GFT_GP.QUP 

4 2 8 

STREAM 

429 

430 

STREAM 

STREAM ....... 

431 

STREAM 

432 

CHOP 

433 

CHOP 

434 

CHOP 

435 

CHOP 

42 6 

. CHOP - . , , 

437 

CHOP 

438 

CHOP 

439 

CHOP 

440 

CHOP 



H A L COMPILATION 


PHASE 


1 


I 


STMT . SOURCE .. , 


3 C6 

M 

CLOSE CHOP; 



C'l 




C! 



7C7 

Mi 

STACK : 


307 

Ml 

PROCEDUR FtTYPE, INC ICATQR, L IN ) 

assign 

3C* 

Ml 

( INC, STACK, PP) ! 


70 J 

M 1 

CECLARE INTEGER, TYPE, PP; 


7Q7 

M 1 

CPCLARF CHARACTER <*) , LIN, STACK; 

- 

310 

Ml 

CECLARE ARRAY 12 5 6) INTFCER, INDICATOR, INO; 

?n 

Ml 

IF PP < 1 THEN GO TG NCT_MULT I P L F 

♦ 

312 

■v, | 

IE L INS-INDX = * * THEN CO ; 

• •• 

313 

Ml 

IF STACKSPP = ' ' THEN 


313 

Ml 

INDSPP = INDTPP +1 : 


316 

Ml 

ELSE GC TO NO T_KLLT I PLF ; 


315 

Ml 

enc; 


2 1 6 

Ml 

FLSE 00; 


317 

Ml 

N C T_ M U l T I P L E ; ■ 

■- - .•• • 

317 

Ml 

p F = "p P + 15 


3 1 3 

Ml 

IF PP > 256 THEN 00 CASE TYPF+1; 


310 

M 1 

CALL ERRGRSCEXPCNENT- STRING OVER 

FLOW *,31; 

2 2 C 

Ml 

CALL ERRORS! ’SUBSCRIPT STRING OVER FLCh’,3); 

321 

M 1 

ENC; /*CF CO CASE*/ 


322 

Ml 

STACK - = STACK I I LIN$INOX; 

' “ - 

323 

Ml 

INDSPP = INDICATOPSINDX; 


32 A 

Ml 

ENC ; 


3 2 5 

M| 

CLOSE STACK;- - 

- 


Cl 




C 1 



326 

Ml 

FUILO_XSCRIPTS*. 



I N C 
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N TER METRICS, 



LINE CURRENT SCOPE 


441 

STREAM 

442 

443 

STREAM 

STREAM 

444 

STREAM 

445 

STACK 

446 

STACK 

447 

ST ACK 

44R 

STACK ■ 

449 

STACK 

450 

STACK 

451 

STACK- ■ 

452 

STACK 

453 

ST ACK 

454 

STACK 

45 5 

STACK 

456 

STACK 

457 

STACK • — ■ • 

45 8 

STACK 

450 

STACK 

460 

STACK CASE 1 

461 

STACK CASE 2 

462 

STACK CASE 3 

463 

STACK 

464 

STACK 

46 5 

STACK 

A 66 

STREAM 

467 

468 

STREAM 

STREAM 



| 469 STREAM 



HAL CG. M P I L A T I C N ' — PHASE 1 

STMT . • - SOURCE - • 

3 26 « | PRCCEDUR E ; 

33 7 Ml E_ STACK , S_STACK = »•; 

333 M| r_ELANKS. S_ BLANKS = -15 

32= M| EP, SP = 0; 

330 Ml CHF.CK_M* 

320 Ml IF M_L INF. $ INC X = ' ' THEN ■ ... 

730 M PROCESS: 

330 M| 00; 

33! Ml CALL STACK ( 0 ,S_I NCI CATCR , E_L INE ) ASSIGN 

731 M | < E_ INC, E_S7ACK,EF) ; 

333 Ml CALL ST ACK ( 1 , S_ I ND I C A TCP , S_L I NE ) ASSIGN 
332 Ml (S_INC,S_STACK,SP) ; 

373 M| CALL CHOP; 

3 3 A Ml GO TC CHECK_M ; 

233 Ml ENC; 

3 3 6 Ml E.LSE /* A NGN BLANK CN S-LIN*/ 

336 Ml CC; 

377 Ml IFF M_ COMM ENT THEN DC; 

377 Ml IF- M_LINESINCX = THEN 

337 Ml IP M_LINE$(INCX +1) = V THEN DC; 

336 M| "..COMMENT = FALSE; - 

3*0 Ml N_ L I NE $ ( I NOX +1 ) = ' * ; 

3*1 Ml END; 

3*2 Ml GG TC PROCESS; 

3*3 Ml END? 

2** M| IF M_L I NE $ I NDX = •/' THEN 

34-1 Ml IF M_ L I NE $ I I NCX +1) = **• THEN DO; 

7* E Ml .".COMMENT = TRL'F ; ; 


I N C 
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I N T E P. M E T R I C S . ' 



LINE CURRENT SCOPE 

470 BUI LD_XSC R I P7 S 

471 BUILD_XSCRIPTS 

472 BUILD_XSCRIPTS 

473 BU I LD_X SC P. I PT S 

474 BU I LD_XSCR T PT S 

475 BU TLD_XSCP I PT S 

476 BU I LD_XSC R I PT S 

477 BU ILD_XSCR I PT S 
476 BU I LD_X SC R I PT S 

479 BU I L D_XS CR I D T S 

480 B'JI LD_XSC R I PT S 
43! BU I L D_X SCR I PT S 
472 BU I L D_XSC R I PTS 
463 BU I LD_XSC R I PTS 
484 BU ILD_XSCP.IPTS 
435 BU I LD_X SC R I PT S 

486 BU I LD_XSC R I PTS 

487 BU ILD_XSCR I PT S 

48 8 BUI LD_XSC P I PT S 

489 BUILD_XSCRIPTS 

490 B'JKO.XSCRIPTS 

491 BU I LD_XSC R I PT S 

492 BUILP_XSCRIPTS 

493 BU I LD_XSC RI PT S 

494 BUILD_XSCRIPTS 

495 BU I LD_X SC R I PT S 

49 6 BU I LO_XSC R I PT S 



497 3U ILD_XSCR I PTS 


<1 

X 

C 

COMPILAT ION -- PHASE 1 — INTERMETR I 

C S , I 

N 

C - 


STMT 


■SOURCE 



LINE 

CURRENT SCOPE 

3 4 £ 

K| 

M_L I NE 1 ( I NDX M) = r 


1 

/*<? 8 

CU ILO.XSC P I PTS 

347 

Ml 

GC TO PROCESS 5 


1 

455 

. BU I LD_XSC R I PT S 

? A S 

Ml 

END*. • • 


1 

500 

3U I LD_ XSC R I P T S 

3 4 0 

Ml 

IF S_ ST AC K IS P = ' ' THEN CO; 


1 

501 

BU I LD_XSCR I PTS 

330 

Ml 

IE SP > 1 THEN S.STACK = S_STACK$.(1 TC S P-1 ) ? 


1 

50? 

BU IL D_XSCR I PTS 

351 

Ml 

ELSE S.STACK = ’ ' ; ••••• 


1 

503 

3UILD_XSCRI PTS 

3 5? 

Ml 

S_ PLANKS = S.JNDJSP; 


1 

504 

BU I L 0_XSC.R I PTS 

353 

Ml 

END ; 


1 

505 

BUILD. XSCRIPTS 

354 

Ml 

r:- f_stack$ep = • ' then cc; 


1 

506 

BU I L D.XSC R I PTS 

3 c r, 

Ml 

IE EP > 1 THEN E_ STACK = E.S7ACKJU TO EP-1J5 


1 

507 

BUILD.XSCRIPTS 

355 

Ml 

ELSE. E_ STACK = • • ; 


1 

509 

BUILD.XSCRIPTS 

257 

Ml 

E. 6 LANKS « .F.INDIEPS . . •• -••• • 


1 

505 

BU ILD.XSCRIPTS 

3 5 a 

Ml 

END ; 


1 

510 

BU ILO.XSC R I PTS 

355 

Ml 

IF F_BLANKS >= S_ CLANKS THEN 


1 

511 

BUILD.XSCRIPTS 

255 

Ml 

M.BLANKS = S_ 8 L ANK S ; . -. r 

— 

1 

512 

BUILC.XSCRIPTS 

360 

Ml 

E.LSF M_ BLANKS = E_ BL A NK S ; 


1 

513 

BU I LD.XSC R I PTS 

361 

M| 

ENC; 

• 

1 

514 

BUILD.XSCRIPTS 


C 1 

THE FOLLOWING STATEMENTS ARE EOR DEBUGGING. PURPOSES ONLY 

,. rs 

1 

515 

BUILD.XSCRIPTS 


C 1 

OLT 'E STACK-’" II E_ ST AC K MV'** 


1 

6 ). 6 

BUILD.XSCRIPTS 


C 1 

CUT ' S_ST ACK= " ' II S.STACK ]| ; 


i 

51 7 

BUILD.XSCRIPTS 

262 

Ml 

CLOSE 5 LILD_X SCRIPTS; 


1 

518 

STREAM 


C I 



1 

519 

STREAM - 


C 1 



1 

5-3 0 

STREAM 

3 63 

Ml 

ST RE AM_ ST ART : - - - - 

. ; ... .. . 


521 

STREAM 

263 

Ml 

IFF FIRS T_CALL_TC_ STREAM THEN DC; 


i 

522 

STREAM 

36^ 

M 1 

TIME] = TIME; 

• " r- - • 


' 523 

STREAM 

• 365 

Ml 

FIRST_CALL_TG_ STREAM ■= FALSE; • --- * - -•»- ----- -- 



524 

STREAM - 

366 

M | 

AGAIN: 


1 

525 

STREAM 

366 

Ml 

CALL READ.CARC; 



526 

STREAM 
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HAL 


PHASE 


1 


C C M P I LATICN 
STMT SOURCE • 


74 7 

HI 

TF_NCT C n 0£ F_CK ( ' C * ) THEN CO; 

368 

Ml 

CALL ERRCPS(CRCEP_ERR,1); 

369 

Ml 

CO TO AGAIN; •. 

37C 

M 1 

FKC; 

371 

Ml 

T EXT_L IM I T = LENGTH! CURRENT_CARD) 

272 

M 1 

PE TUR N I NG_M = TRIE; 

2 73- 

Ml 

M_L INE, E_L I NE » S_L!NE = ' • ; 

374 

Ml 

INDX = 1; 

37? 

"1 

CALL GET_GROUP; 

376 

Ml 

M_HLANKS = -1 ; 

377 

Ml 

INDX = 2 ; 

378 

Ml 

li = l; - - 

37° 

M 1 

enc; 

380 

Ml 

IFF MACRO_FOUNC THEN CC; 

381 

Ml 

IF MACRC.PDIMT < MACRO_L I MIT THEN 

3 8? 

V 1 

N c X T_ C H A R = 

7 ° ? 

M| 

MACRC_ ST REiM$MACRC_ POINT; 

7 3 3 

Ml 

MACRn_ PU I NT = MAC R C_ PC I NT +1; 

2 g A 

Ml 

RETURN; 

385 

Ml 

ENC; 

786 

Ml 

IF SA VE_BLANK_C01NT >= 0 THEN DC;. 

3 8 7 

Ml 

NF XT_CH AR = ' ' J 

3 8 S' 

Ml 

RL ANK_CCUNT = SAVE_BL ANK_COUN'T ; 

38? 

Ml 

S A VE_ EL ANK_COUNT = -1; . 

390 

M 1 

RETURN; ' 

391 

Ml 

ENC; 

292 

Ml 

MACP.C_FOUND = FALSE; 

397 

Ml 

N F X T_ C H A R = S A V E_N EXT_CH AR ; 


INTERMETRICSt 






INC. 


LINE 

CURRENT SCOPE 

527 

STREAM 

528 

STREAM 

529 

STREAM 

530 

STREAM 

531 

STREAM 

532 

STREAM . ... -. 

533 

STREAM 

534 ■ 

STREAM 

535 

STREAM 

536 

STREAM 

537 

STREAM 

538 

STREAM .......... 

53? 

STREAM 

540 

STREAM 

541 

STREAM ...... 

542 

STREAM 

543 

STREAM 

54 4 

STREAM 

545 

STREAM ' 

546 

STREAM 

5^7 

STREAM 

548 

STREAM 

549 

STREAM 

550 

STREAM - 

551 

STREAM 

552 

STREAM 

553 

STREAM 

554 

STREAM 
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A L 

C 

COMPILATION — PHASF 1 — INTER 

METRICS* I 

N 

c . 


STMT 


.. .. . .... - .SOURCE 

• v~ - - ' . 


LINE 

CURRENT SCOPE 

3 94 

M 1 

CVER_PUNCH = SAVE_OVER_PUNCH; 


! 

555 

STREAM 

5CR 

Ml 

MACRC_ STREAM = • • ; 



556 

STREAM 

395 

Ml 

RETURN? - • ■ • 

.. ... . 

1 

557 

STREAM 

357 

Ml 

FRO; 

• . / 

1 

55 p. 

STPE’AM 

39 p 

Ml 

eiANK_CCUNT = -l ; 


1 

559 

STREAM 

39 c 

Ml 

S T ACK_CHEC K : •- . •• — • 

... ... .. - .... 

1 

560 

STREAK 

3 fC 

M 1 

DC FOR II = It TC 3;/*CHECK LIMIT*/ 


1 

561 

STREAM 

4CQ 

M | 

IF RETURN CHAR NOT = 0 THEN 00; 


1 

562 

STREAM 

ACC 

SI 

1 1 : 


1 

563 

STREAM 

AO 1 

Ml 

A :• R QW_ FLAG = TRUE; 


1 

56 A 

STREAM 

AC? 

M | 

RFTIJPN CHAR = RETURN CHAP -1; - -- 

- ~V.. • 

1 

56 5 

STREAM ...» ■ 

AO? 

SI 

iis 1 1 ; 


1 

566 

STREAM 

AC? 

M. 1 

NEXT CHAR a TYPE_CHAR . ? . . ...... . 

- - .... 

1 

567 

STREAM ..... 

AO? 

SI 

1 1 : 


1 

568 

STREAM 

ACA 

Ml 

C VE R_ PUNCH =0; ■ ■■ - - - : •■ 4 — " ‘ 



56S 

STREAM 

AO 5 

Ml 

return; 


1 

570 

STREAM 

ACf- 

M 1 

end; " 


1 

571 

STREAM 

A 07 

M 1 

FNC; • ••••••••• ’ - ; ' - -• : ' 

- 


57? 

STREAM ...—v 

A 0 8 

Ml 

II = l; 


1 

573 

STREAM 

A 09 


IFF AP RCW_FL AG THEN DC; 


1 

57 A 

STREAM 

A I 0 

Ml 

ARROW. FLAG = FALSE; -• 

•L. — 


57 5 

STREAM . ~-..v ./. 

A 1 1 

Ml 

NEXT.CHAR = SAVE_NEXT_CHAR; 


1 

576 

STREAM 

M 2 

Ml 

FVFP_ PUNCH = SAVE_OVFR_PUNCH; 


1 

577 

stream 

A 1.3 

Ml 

RL A NK.CCUNT = S A V F_ EL ANK.COUNT; i --■■■' 

.--A'-' --A'- 


578 

STREAM - 

4 1 A 

Ml 

RETURN; 


1 

579 

STREAM 

41 5 

Ml 

FNC; 



580 

STREAM 

416 

Ml 

BEGIN ING: — — 

■ — • 


581 

STREAM 

A 1 6 

M 1 

IFF RFTURNING.M THFN CC; 


1 

582 

STREAM 


<,n v| IF K_RLANKS >- 0 THEN HO; 
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58? 


STREAM 



HAL 


COMPILATION 


PHASE 


1 


STMT SOURCE 


418 

Ml 

NEXT_CHAP. = ’ 


419 

M'i 

ARROW = - LA ST_E_ IND ; 


4?0 

M | 

L A ST_E_ IND = C: 


4" 1 

Ml 

F 1. A f\K_C CUNT = M_ ELANKS; 


42? 

Ml 

M_ 0 L A NK S = -1; 


423 

Ml 

GC TO FCUNC.CHAR ; ■ 


47/. 

Ml 

pnc; 


4 2 5 

Ml 

IF M_ L I NE $ I NO X NOT = ’ ' 

THEN DC; 

426 

Ml 

IF M_ L I NE $ I MCX = '/• THEN 


4 26 

Ml 

IF M_L INE i ( INDX +11 = 

THEN DC; 


Cl 

HFRE IS A START CF A COMM 

ENT 

4 27 

Ml 

M_ COM. ME NT = TRUF ; 


42 3 

Ml 

M_ L INF 5 I NDX = ' 1 ; 


425 

Ml 

M_ L I NE $ ( I NCX +1) = • ", 


4 3 C 

Ml 

GC TO BLANK; 


431 

Ml 

FISC; 


43? 

Ml 

IF E_CCUNT > 0 THEN CO; 


433 

Ml 

IF E_L INESI NDX NCT = * ' 

THEN DO; . 

4?6 

M 1 

IF E_ INCICATCPJINCX NOT = 

1 THEN 

4 34 

Ml 

CALL ERRORS! ’F-LINE OVERLAPS M.-LINE 

435 

Ml 

ELSE CVER_ PUNCH = E_ L INE$ INCX ; 

436 

Ml 

ENC ; 


437 

Ml 

ELSE OVER_PUNCH = 0; 


438 

Ml 

ENC; 


4 3 C 

Ml 

ELSE OVER.PUNCH =0; 


44C 

Ml 

IF S_CCLNT > 0 THEN 


440 

Ml 

IF S_L INEJINCX NOT = * * 

THEN 

4 40 

Ml 

CALL ERRORS! ’ S-LINE OVERLAPS M-LINF 


I NTERMETRICS 


I N C 
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LINE CURRENT SCOPE 

584 STREAM 

58“= STREAM 

58, fc STREAM 

887 STPEAM 

588 STREAM 

539 STREAM 

590 STREAM 

591 STREAM 

592 STREAM 

593 STREAM 

594 STREAM 

595 STREAM 

596 STPFAM 

597 STREAM 
5°8 STREAM 
595 STPEAM 

600 STREAM 

601 STREAM .... 

60? STREAM 

603 STREAM 
6 06 STREAM „ 

605 STREAM 

606 STREAM 

607 STREAM . ... 

608 STREAM 

609 STREAM 

610 STPEAM 


611 STREAM 



phase 


1 


I N C 
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A L 

C 

OHPILATION — 

STMT 



441 

HI 

ARROW = - L AST_E_ IND : 

442 

Ml 

L A ST_E_ I NO = Cl 

443 

HI 

N'C XT_CH AR = H_L INET INCX ; 

44 4 

H| 

CALL CHCP; 

445 

HI 

GC TO FClJNO_CHAR ; 

446 

Ml 

enc; 


I N T E R M E 

SOURCE.-,. • - - 



* A 7 I ELSE ...... 

447 Hi PLANK: 

44 7 M I DO ; • 

4 4 p M| CALL BUILC_XSCRI PTS 
440 Ml CV ER_ PUNCH = 0 ; 

4SC Hi RE TURN ING_M = FALSE; " - 

451 HI L A$ T_S_ I NC =0; . .. 

45? HI RETURN ING_S = TP.UF ; 

45 ? H POINTER = 1; /*THIS CNE HAY NOT EE. NEEDED*/ 


454 Hi EMC; 

455 Hi END; 


456 

Hi 

IFF 

RETURN ING_S THEN DC; ...... 


4 57 

HI 

IF 

L E NOTH ( S_ STACK ) > 0 £ 


457 

Hi 


POINTER <= LENGTH! S_STACK) 

THEN CO 

4 5 3 

Hi 

' IF 

S_STACK$POINTER = '' * THEN 

do; 

4 5<= 

Hi 

I F 

S_ I NOi POI NT FR >•= 0 THEN 



Cl 

MORE LEFT 





459 H I DC ? 

460 Hi NEXT_CFAR = * ’? 

461 HI EL ANK_CGUNT = S_ I NO $PC I NT ER ? 


46? Hi POINTER = POINTER + 15 

= L A5T_ S_ I ND - S_ INC JPO INTER ; 


T R I C S » • 



line current scope 

I 61? STREAM 
| 613 STREAM 

| 614 STREAM 

| 615 STREAM 
| 616 STREAM 

| 617 STREAM 

| 61 P STREAM 

| 619 STREAM 

| 620 STREAM 

| 6? 3 STREAM 

| 622 STREAM 

| 623 STREAM . - 

| 624 STREAM 

| 625 STREAM 
| 626 STREAM 
| 627 STREAM 

I 628 STREAM 

| 629 STREAM . . 

1 630 STREAM 

| 631 STREAM 
| 632 STREAM ... — — , 

| 633 STREAM 
| 634 STREAM 
| 635 STREAM ..... . 

| 636 STREAM 

| 637 STREAM 
| 638 STREAM 
I 639 STREAM 


46? m.\ 


AP ROW 


HAL COMPILATI.CN 
STMT - 


PHASE 1 


SCURCE 


4 66 : 

y 1 

Li S T_S_I NO = S_INCSPCIMTFS ; 

46? 

Ml 

FNC; 

4 6 6 

Ml 

F.NO? ■■■ 

467 

Ml 

r LS F nc; / * A NCN PLANK*/ 

£ f* 

Ml 

NE/T.CHAR = S_STACKtPO INTER; 

L. 5 c 

Ml 

ARROW = L AST_ S_ I Ml - S_ INC1PG INTER ; 

470 

Ml 

Li S T _ S _ IIOO = S.INGJPC INTER; 

471 

Ml 

POINTER = POINTER + 1; 

472 

Ml 

ENT; 

47** 

Ml 

GO TO FCUND_CHAR; 

474 

Ml 

FNO; 

475 

Ml 

ELSE OC; /* CAN NOT RETURN*/ 

4 76 

f'l 

RR TURN I NG_ S = FALSE; 

477 

Ml 

RETURMNO.c = TRUF; 

473 

M 1 

LAST_f!_IND = - LA ST_S_ I NO 5 

479 

Ml 

POINTER = 1 ; 

4«0 

Ml 

enc; 

431 

Ml 

END ; • 

4n*> 

M 1 

IFF RETURNING. E THEN CC ; 

403 

M 1 

IF LENGTH! E_STACK ) > 0 S 

437 

Ml 

' POINTER <= LENGTH! F.STACK ) THEN CC 

4°4 

Ml 

IF F_ STACK $PC INTER = * • THEN DO; 

4 PE 

Ml 

IF F_ INDS POINTER >= 0 THEN 


Cl 

MORE TC GO. .-.••• 

4 P 5 

M 1 

DC; 

4PA 

Ml 

NFXT.CHAR = • • *, 

4 0 7 

Ml 

13L A.NK.CCUNT = E_ I ND$ FO I NTFR ; 

4?S 

M 

r-CTNTFP = POINTER + 1; 


I NTEP. METRICS, - 
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. line 

CUPRENT 

! 640 

STREAM 

1 641 

STREAM 

.. .. | 642 

STREAM 

I 64-3 

STREAM, 

I 644 

STREAM 

1 645 

STREAM 

1 646 

STREAM 

| 647 

stream 

- | 645! 

STREAM 

1 64° 

STREAM 

1 650 

STREAM 

.. ..... 1 651 

STREAM 

1 65? 

stream 

1 65? 

STREAM 

... 1 656 

STREAM 

1 66 5 

STREAM 

1 656 

STREAM 

.1 657 

STREAM 

1 655 

STREAM 

I 659 

STREAM 

, ... . | 660 

STREAM 

| 661 

STREAM 

1 66? 

STREAM 

. r . 1 663 

STREAM 

1 . 6 64 

STREAM 

| 665 

STREAM 

1666 

STREAM 

| 667 

STREAM 



HAL 

C 

C M P I L A T I 0 N — PH 

STMT 


• 

6 39 

f-M 

ARROW = E_ IND5F0 INTER - LAS T_E_ 

69 C 

t- 1 

LA ST_E_ INO = E_INCiPC IMER; 

651 

Mi 

CMC; 

/,c ? 

•Ml 

end; 

49 3 

Ml 

ELSE 


C 1 

A NON BLANK 

/,C "> 

FM 

P.C ; 

656 

Ml 

ME XT_CH AR = F_STACK$PCINTER; 


Ml 

ARROW = E_ I NC $ FO I NT E R - L AST_E. 

&C5£ 

Ml 

LAST_E_ IND = E_INC*PCINTER; 

657. 

M | 

POINTER = POINTER + 1? 

6 5 P 

Ml 

END; 

499 

Ml 

GC TO FCUNC_CHA°, ; 

50C 

Ml 

FN0 5 

' 5C1 

M 1 

ELSE 


Cl 

CAN NCT RETURN 

501 

Ml 

oo; 

502 

Ml . 

F.E TURN I NG_E = FALSE; 

503 

Ml 

SETUP NI NG_M = TRUE; 

506 

M | 

PNC; 

505 

Ml 

END ; 

506 

Ml 

CO TO REGINING: 

5C7 

■Ml 

FCLND_CHAR: 

507 

Ml 

IF ARRCW NCT = 0 THEN CC ; ...... 

508 

Ml 

OLD_L E VE L = NEV>_LEVFL; 

5 C 5 

M 1 

NE V_LE VEL = N E W_ L E V E L + ARROW: 

510 

Ml 

S A V E_CV ER_PUNCK = OVER_PUNCH; 


SAVF_NF XT_CHAR = 


SE 1 — I NTERMETRICS* 

. SOURCE • .... . ■ , • ~ 

INC; 


INC: 



INC- PAGE 


LINS 

CURRENT SCOPE 

| 66 P 

STREAM 

| 669 

STREAM 

! 670 

STREAM 

1 671 

STREAM 

1 67? 

STREAM 

1 673 

STREAM 

| 676 

STREAM 

| 675 

STREAM 

| 676 

STREAM . 

1 677 

STREAM 

| 678 

STREAM 

I 679 

STREAM 

1 68 0 

STREAM 

1 681 

STPEAM 

1 682 

STREAM 

1 683 

STREAM 

1 686 

STREAM 

1 685 

STREAM ... ..... 

1 686 

STREAM 

1 687 

STREAM 

| 688 

STREAM. 

1 689 

STREAM 

| 690 

STREAM 

1 691 

STREAM 

! 69? 

STREAM 

I 693 

STREAM 

1 696 

STREAM . 


511 Ml 


NEXT _C WAR; 


695 


STREAM 


HAL COMPILATION — PHASE 1 — I NTERMETR IC 

STMT SOURCE • - - 

51? Ml S AV F_ 9L ANK_COUNT = 9LANK_CCUNT ; 

513 M| IF OL D_LE VEL > 0 THEN DC; 

51 A Ml IF ARROW < 0 THEN .. .. ,, .. 

51 A M| CALL STACK_P.ETURN_CHAP {-ARROW, *)'> ; 

515 M| ELSE 

515 M| EXPONENT: • • . 

515 HI DU ; 

516 m | if ARROW > 1 THEN 

516 M| CALL ERRORS(E_LINE_ERR,15 ; • . . - ■ " ' - 

5)7 Ml CALL STAOK_RETURN_CHAR (2, ’*• ) ; ' ‘ 

518 Ml CALL STACK_RETURN_CHAR ( ARROW, * { * ) ? 

SIS Ml END; ■ :■ -• : - ■ v ' 

5PO M| FNC; '• 

521 Ml ELSE IF OLD_L E VF L - C THEN DO? 

5 2? Ml IF ARROW < 0 THEN . . •...•*•> . • ••••!. - - • v- 

52? Ml -SUES: , 

52? M l 00; 

523 M| IF ARROW < -1 THEN CALL . ERRORS t • - 

5?3 Ml * S-LINE CHARACTER MORE THAN 1 LINE BELOW PRECECI NG CHARACTER ',11; 

5?A M| CALL STAC K_ RET L'RN_CHAR(1, *$’ ) ; 

525 Ml CALL STACK_R ETURN_CHAR {-ARROW, •(_•);_ v . 

626 M| END; : 

527 Ml ELSE GC TO EXPONENT; . 

5?S >■! END! 

??<? Ml else /*oi.n < 0*/ CO; ' • 

530 M| IF ARROW < 0 THEN GO TO SUBS; 

531 Ml IF NFW_LEVEL <= C THEN — .• . • •. 

531 Ml CALL ST ACK_RETURN_CHAP ( ARROW, * I * ) ; 


INC. 

LINS CURRENT SCOPE 


c' 






1 656 

STREAM 

1 697 

STREAM 

■ - | 698 

STREAM 

1 6^5 

STREAM 

| 700 

STREAM 

-1 TO). 

STREAM ....... 

1 70? 

STREAM 

1 703 

STREAM 

1 t 0 a 

STREAM . 

1 705 

STREAM 

1 70 6 

STREAM 

1 70? 

STREAM . 

1 708 

STREAM 

1 70° 

STREAM 

! 710 

STREAM ... . 

1 711 

STREAM .. 

1 712 

STREAM 

, - 1 713 

stream' ... .... 

| 71 *■ 

STREAM 

1715 

STREAM 

v ,. 1 716 

STREAM , r , 

| 717 

STREAM 

1 718 

STREAM 

.... I 719 

STREAM ......... 

| 720 

STREAM 

1 721 

STREAM 

„ . 1 722 

STREAM ... 


I 723 STREAM 


HAL C 
stmt 
53? M I 
533 Ml 
5 3'- Ml 


53 6 M 
5 37 Ml end; 


DMP I LATICN — PHASE 1 

- SOURCE - . ... 

ELSE OC; 

CALL STACK_RFTURN_CHAR (~CLC_L EVEL ♦ * )’ ); 

IF NEW_LEVEL > X THEN CALL ERRORS! E_LINE_ERR» 1) ! 
CALL STACK_R C TLPK_CHAP !?. t ; 

CALL STACK_RETUP.N_CHARINEV>_ LEVEL » * ( ’ ) > 


I NTERMETRICS 


INC. 

LINE 
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535 M| 

54Q M| 

5 6 1 f> | 

54 2 M | 

54 3 Ml 

Cl 
Cl 
C I 
Cl 

544 m| 
544 M I 

54 5 M| 
5 4 6 Ml 

547 Ml 

548 Ml 
34 5 Ml 
5 5 0 M| 
551 Ml 
55 7 Ml 

55 3 Ml 
554 M| 

C I 
Cl 


END; ■ 

ARROW = 0; 

OU TO STACK_ChECK ; 
r n 0 ; 

RETURN; 

CLCSE STREAM!; 


PROGRAM TO TEST THE STREAM PRCCECUPE 
N A f N_PRCG P AN : 

W«ITE<6) 'BEGIN- TEST-OF HAL IN HAL’?- — 

BUILT * BUILT_UP* BUI LT_ TOKEN* BU I LT_C_P=* * » 
MAIN_LCCP: DC FOREVER; 

CALL STREAM; - - - 

.IF NE XT_CHAR = * * THEN DC; 

IFF C L ANK_ FLAG THEN CG TC MAIN_LC50P; 

ELSE BLANK.FLAG = TRUE;. — >•.- 

END; 

ELSE BLANK_! : LAG = FALSE; 

BUILT = 8UILT || NEXT.CHAR; - 

IF CVEP_ PUNCH = *0* THEN CO; 




OUT ’STREAM RETURNS 
II BL ANK_CC.UNT ; 


NEXT_CHAR || || • - BLANKS* 


CURRENT SCOPE 
STREAM 

725 STREAM 

726 STREAM 
72 T STREAM 
728 STREAM 
725 STREAM 
73G STREAM 

731 STREAM 

732 STREAM . 

733 STREAM 

734 STREAM 

735 HALINHAL ...... ■ 

736 HALINHAL 

737 HALINHAL,-- - 

738 HALINHAL 
735 HALINHAL 

740 HALINHAL 

74J HALINHAL **•!... 

742 HALINHAL 

743 HALINHAL 

,744 ..HALINHAL-"—-- 

745 HALINHAL 

746 HALINHAL 
.747 HALINHAL------ 

748 HALINHAL 
745 HALINHAL 

750 HALINHAL--— -- 

751 HALINHAL 

752 HALINHAL 

753 HALINHAL 



HAL 


COMPILATION 


PHASE 1 


I N C 
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INTERMETRICS* 

STMT • SOURCE • -v • - •• ■ 

55« M| 5UILT.UP = BUILT.UP II ' 

55ft Ml END * 

5 5 7 Ml ELSE DC; • - '• " •’ 

C| OUT 'STREAM RETURNS " ' II NEXT_C HAP. II - OVER PUNCH "• 

C | || ov"R_PUi\CH I | || • - BLANKS®' II Bl ANK_CCUNT ; 

558 Ml BU I LT_UP = BUILT_UP II GVFP_PUNCH; 

5 5 t M | END; 

560 M| IF NF.XT_CHAR ' NOT < 'A' THEN DO; ' - ■ ' 

561 Ml BUI LT_TCKFN = BULT_T0K5N II NEXT.CHAR; 

562 Ml IE C VE S_ PUNCH NOT = 'O' THEN BUILT_0_P-= OVER_?UNCH; 

363 Ml PNC: ■ ■■ ■ ..•• 

564 Ml ELSF DO; 

565 M| IE LENGTH! BUILT_ TOKEN) NOT = 0 THEN DO; 

566 M | IF 8UILT_0_P = ' ' THEN WRITE (6) 1 TOKEN® ' II - BUI IT_TCKEN; :; - 

567 w| ELSE WRITE ( 6 ) ' #**TCKEN= * M EUILT_TOKEN || * » MAPKER= ' II BUILT_0_P; 

365 Ml BUIIT.TCKEN, sUllT_C_F = "; 

565 Ml END; ~ - ; ' ' 

370 m| if NEXT_CHAR NOT = * ' THEN WRITEI6) ' *7*T0K?N= ' II NEXT_CHAR; 

0* \ *• 
57). Ml ELSE WRITEI6) » **GL ANKS = ’ II 8LANK_CCUNT + 1; 

572 Ml -END; - ■ 

573 Ml IF NEXT_CHAR = *;• THEN CC; 

57 A M| WRITEC6) SKIP!?), •***GVEP***’ II BUILT_UP; 

575 M| . WP I T5 ( 6 ) • *#*MA!N#*A * II BUILT, SKIP(2); ...LC, 

576 Ml BUILT, 8UIIT_UP = 

577 M I END; 

578 M| IF NFXT_CH AP = •?• THEN" GO TO DISASTER; ^ .V-usalLw 

573 M| END; /* 00 FOPFVFR */ 

r -°C Ml CIS4STFR : 


LINE CURRENT SCOPE 
75-ft HALINHAL 

755 HALINHAL 

756 HALINHAL 

757 HALINHAL 
75S HALINHAL 

759 HALINHAL 

760 HALINHAL 

761 HALINHAL 

762 HALINHAL 

763 HALINHAL 
76^ HALINHAL 

765 HALINHAL 

766 HALINHAL 

767 HALINHAL 

768 HALINHAL 
760 HALINHAL 

770 HALINHAL 

771 HALINHAL 
77? HALINHAL 

773 HALINHAL 

774 HALINHAL 

775 HALINHAL 

776 HALINHAL 

777 HALINHAL 
77 B HALINHAL 
779 HALINHAL 
760 HALINHAL 
78! HALINHAL 




HAL COMPILATION — PHASE 1 I NTERMETRICSt 

c T y T SOURCE ■ - • 

5rtO Ml CALL PRINT_SUMMARY; 

set Ml VsPITE(fc) ' this test is ncw complete.'; 

r.an mi clcse halinhal; • 

Cl 

r 1 A 8 C 0 - F - • • ■ - - 


INC. 

LINE CURRENT SCOPE 

I 78? HALINHAL 

| 783 HALINHAL 

I 78' 

I 705 
| 78fe 
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S Y B C L TABLE 


L I S 


T N G 


ucr N'AHF 


TYPE- -CLASS • •' LENGTH — "PRECISION -—NEST ■ CUTER_LEVEL - FLAGS.’" SYT_PTR 


1 

2 

•> 

lx 

E 

fc 

7 

8 
e 

1C 
1 I 
I 2 
12 
1 A 

1 5 
16 
17 
1 3 
l n 
2C 
2) 
?? 
27 

2 A 

25 

26 
,?7 
2 1 

29 

30 

31 

32 
37 

3 a 

35 

36 

37 
37 
35 
AO 
A I 
A2 
A3 
A A 

4 5 

A 6 
A 7 

48 

49 

5 C 
51 
5? 


HAL TNHAL 

R 

F A L 5 r 
TRUE 

RtT_l * -- 

IF_NCT . 

TFT 
CJ T 

rO r ’F-VFR 
X TO 

FUJ 1 LT - ■ • 

BUI L T_UP 
BU I LT_T CKFN 

EL I L T_F_ P 

PL ANK_ Ft AG 
I- 2 f C R_C Cl)NT 
MAC «C_ POINT 
M A C R 0_ L I K IT 
Cl.n_LFVFL 
MFk.LFVFL 
AX_ S 6 IT Y 

STAT F T_S EVER ! TY 
SA VF_ S c \'FR I TY 
S *V E_L I N 6 
PP. FVTCIS_ ERROR 
I 

r.oyr il i\G 

T T •‘-•FI 1 
T I m E 2 

MACRC_ STREAM 
M ACR G_ 

CARR_CCUNT 
Cl RASTER 
NF XT_C.HAI< 

cvc«Ipunch 
plank. 

CONTROL 
TOGGLES 
CARD_ TYPE 
SFLECT 

C H AR_ I N F. FX ... 
STRING 
PATTERN 
I 
J 
K 

PAR 

STRING 
WICTH 

TFMP_ STRING ' 
l 

I _ F C R M A T 



PROG 

l ABEL 

0 

0 

0 

0 

40 

2 

0 

R FPL 

0 

0 

1 .. . 

0 

3000 

A 

0 

R FPL 

0 

: 0 

1 - 

0 

8000 

2 

0 

R FPL 

0 

0 

1 

0 

5000 

3 

0 

REEL ■ • 

— 0 - 

.. 0 • 



0 • 

8000 

, - . 4. 

0 . 

R E PL ' 

0 

0 

1 

0- 

8 000 

5 

c 

RE PL 

0 

0 

1 

0 

8000 

6 

0 

P. EPL . 

0 

0 

■1 ... ...... 

0 

3 000 

7 

c 

PF PL 

0 

0 

1 , : 

0 

POOO , 

8 

CHAP. 

VAR 

70 

FIXED 

1 . 

0 

0 AO 8 

0 

... CHAR • 

VAR - 

— 55 .. 

.^•VARYING 

} — — - 

0 

8 20 B 

.. . ... . 0 

CHAR 

VAR 

255 

VARYING 

1 

0 • 

8 205 

0 

CHAR 

VAR . 

255 

. VARYING 

1 

0 

8 20(3 

0 

CHAR 

VAR .... 

.. - 255 

.. . . VARYING 

1 ■ ~..v y... 

0 

B ROB 

. ... 0 

I NT ' 

VAR 

0 

0 

1 

0 

B A 0 0 

0 

I NT ' 

VAR •' 

0 

0 

1 

0 

9 AO 8 

0 

, ... TNT 

VAR -- 

- 0 - 

— • - 0 ■* 

\ - - * 

- 0 

8 AOB 

- 0 

INT 

' VAR 

0 

0 

1 

0 

3 AOB 

0 

INT 

VAR 

0 

0 

1 

0 

5 AOB 

0 

INT 

VAR ...... 

, : 0 

r C 

... 1 v 

0 

8 A OB 

0 

INT 

V AIT* 

0 

0 

1 

0 

9 AO 8 

0 

INT 

v a a 

0 

0 

1 

0 

8 AO?. 

0 

... INT 

ARRAY 

- 0 ■ 

«• 0 

1 

0 

8 AOB - 

- — • 0 

INT 

ARRAY 

0 

0 

1 

0 

3 AOB 

0 

INT 

VAR 

0 

0 

1 

0 

8 AOB 

0 

INT 

VAR 

0 

0 

■ 1 

0 

3 AOB 

. .... 0 

INT 

VAR 

0 

0 

1 

0 

.8 AO 3 

0 

INT 

VAP. 

0 

0 

l 

0 

3 2 OB 

0 

INT 

VAR 

0 

. . . * 1 ... > * ». 0 

.. . I -I.,.™'.—.. 

0 

8 20B ■ 

0 

CHAR 

VAP. 

255 

VARYING 

1 

0 

820B 

0 

INT 

VAR 

0 

0 

1 

0 

BAOB 

0 

INT 

VAR . 

. 0 • 

0 

. .... 1 .. 

0 

P.AOC 

0 

STMT 

LABEL 

0 

0 

1 . 

0 

0.040 

0 

CHAR 

v a a 

I 

FIXED 

1 ■ 

0 

R ?0B 

0 

• CHAR 

VAR 

... 1 . 

.'•••ux • . FIXED 

.... v . V. . 1 

0 — 

3 208 

•. - • c 

INT 

VAR 

0 

0 

1 

0 

8 AOB 

0 

BIT 

ARRAY 

32 

0 

1 

0 

S 20B 

0 

CHAR 

VAR 

.10 

....... FIXED 

1 , -. 

.... 0 

8 AOB 

.. ... 0 

INT 

FIJNC 

0 

0 

1 ‘ . 

0 

8060 

40 

CHAR 

VAR 

1 

FIXED 

2 ■ ’ 

0 

C AOB 

0 

INT 

FUNC 

- 0 ■ 


1 - 

0 • 

3040 

... .. :.v. 4 ? 

CHAR 

VAR 


FIXED 

2 

0 

BAOB 

0 

CHAR 

VAR 

** 

' FIXED 

2 

0 

BAOB 

0 

INT 

VAP ■ 

. 0 

0 

2 

...... 0 

3 20B 

0 

INT 

VAR 

0 

0 

'*1 

4 

0 

3 20B 

0 

INT 

VAR 

• 0 

0 

2 • 

0 

C.2.0B 

0 

.. CHAP 

FUNC 

■ 255 

4.^. VARYING 

1- > - - 

0 

8 040 

— • 6 3 

CHAR 

VAR 


F IXED 

? 

0 

B60B 

0 

INT 

VAR 

0 

0 

. 2 

0 

3 60 B 

0 

. CHAR 

VAR 

255 

VARYING 

2 ........ 

0 

3 2 OP. 

0 

INT 

VAR 

0 

' 0 

2 

0 

C 7QB 

0 

CHAR 

FUNC 

* ** 

FIXED 

1 ’ ■■ 

0 

80A0 

■ 53 


ARRAY 


100 

100 


10 



H A 

l C C..M P T L A T I 0 N 

— P H A S 

E 1 

1 

N T E R M E T 

R I C 

S , INC. 
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ICC 

NAVE 

TYPE 

CLASS 

LENGTH 

. PR EC I Si ON 

NEST . 

. CUTER, .LEVEL 

FLAGS 

S YT_PTP. 

ARRAY 

.. 

e -> 

I\ 1 j v « 1 = 

I NT 

VAR 

0 

C 

7 

0 

9608 

0 



«/* 

WIDTH 

INT 

VAR — 

0 

• v. . 0 

. 2 

— ... 0 

8603 

.. .. 0 



55 

STRING 

CHAR 

VAR 

255 

VARY I NG 

2 

0 

R 20B 

0 



56 

L 

I NT 

VAR 

0 

0 

2 

0 

C20B 

0 



57 

ERRORS 

PRQC 

L A 9 EL 

0 

0 

1 

0 

9 060 

58. 



r ; c> 

V r. 5 S a C T 

CHAR 

VAR 


FIXED 

2 

0 

.9 SOB 

0 



5 5 

SEVER I ty 

INT 

VAR 

0 

0 

2 

0 

9 6 OB 

0 



60 

y 5 g • • — 

CHAR 

VAR ■ 

255 

VARYING 

- i . 

— 0 

ft 208 

0 



61 

0! SASTCR 

T — ST. 

LABEL 

0 

0 

2 

0- 

CO60 

B3 



62 

PRINT SUMMARY 

PR CC 

LABEL 

0 

0 

1 

0 

9060 

0 



63 

S T R F A y 

PROC 

LABEL 

0 

, . 0 

. 1 

. 0 

9 060 

64 



66 

F I. INF 

C H A P 

VAR 

255 

VARYING 

2 . 

0 

>7 2 OB 

0 



6 5 

5 L I F 

CHAR 

V A 7 

255 

VARYING 

2 

0 

8 20R 

0 



66 

NUNC ■ - ■ ■ 

CHAR 

VAR 

255 

VARYING . 

2- 

0 

9/205 • 

0 



67 

5 A V F CARD 

CHAO 

VAR 

BO 

FIXED 

2 

0 

8 208 

0 



69 

CUP PENT CARC 

CHAR 

VAR 

80 

FIXED 

2 

0 

8 20 B 

0 



69 

CLANKS 

CHAR 

VAR 

12S 

FIXED 

2 

0 

8 AO B 

0 



7 C 

F 1. INF ERR 

c H A {? 

VAR 

50 

VARYING 

2 

0 

ft A OB 

0 



71 

CRCER Ei«R 

CHAR 

VAR 

• 27 

FIXED 

2 

0 

BAGS 

0 



7? 

PR E V CARC - 

CHAR 

VAR. 

1 

■ FIXED 

• ■ 2 

........... . 0 

8 20 B 

0 


* 

7 ’ 

S A V & NEXT CHAR • 

CHAR 

VAR 

1 

FIXED 

2 

0 

ft 20B 

0 



76 

SAVE OVER PUNCH 

CHAR 

VAR 

1 

FIXED 

2 

0 

8 BOB 

0 



75 

LAST C I NO 

I NT 

VAR 

0 

C 

2 

... 0 

ft A OB 

0 



76 

LAST S 1,'JD 

I NT 

VAR 

0 

0 

? 

0 

0 A 0 B 

0 



77 

E PLANKS 

I NT 

VAR 

0 

0 

2 

• 0 

R AOG 

0 



• 76 

V BLANK S - 

I NT 

VAR 

0 

0 

2 

0 

8 AOB 

0 




75 

s blanks 

INT 

VAR 

0 

0 

2 

0 

9 A OB 

0 



80 

FP 

INT 

VAR 

0 

0 

2 

0 

8 AOB 

0 



81 

SP 

INT 

VAR 

. 0 

0 . 

2 

........ 0 

8 AOB 

0 



0 ? 

T F XT LIMIT 

I NT 

VAR 

0 

0 

7 

0 

9 AOB 

0 



93 

F COUNT- 

INT 

VAR 

0 

0 

2 

0 

S AOB 

0 



86 

LAST F C CUM T 

...... INT 

VAR .• 

0 

• 0 

2 • 

. 0 

ft A OB 

. . 0 


• ** • 

85 

S CCUNT 

INT 

VAR 

0 

0 

2 

0 

8 AOB 

0 



86 

LAST S CCUNT 

INT 

VAR 

0 

0 

2 

0 

.8 AOB 

0 



97 

I Ti P X 

INT 

VAR . 

0 

0 

2 

0 

8 AOB 

0 




CP 

INT 

VAR 

0 

0 

? 

0 

9 AOB 

0 



P9 

POINTER 

INT 

VAR 

0 

c 

2 

0 

8 AOB 

0 



90 

ARROW . - ■ ■ = 

........ . INT 

VAR 

0 

. ...... 0 

. . 2 

... - — 0 

■5 A OB 

... 0 - ■ 


- ■* 

91 

I I 

INT 

VAR 

0 

0 

2 

0 

8 AOB 

0 



92 

FIND 

INT 

ARRAY 

0 

0 

2 

0 

R AOB 

0 

256 


9 3 

S INC 

• •• . ■ INT 

ARRAY 

0 

...» - 0 

2 

... 0 

8 AOB 

. .. ... 0 . 

256 


3 " 56 

F INCICATCR 

INT 

A f R A Y 

0 

0 

2 

• 0 

8 AOS 

■ 0 

256 


9 5 

S INCICATCR 

INT 

a a a y 

0 

0 

2 

0 

BA OB 

0 

256 


96 

RETURNING F 

INT 

VAR 

0 

. 0 

2 

0 

ft A 0 $ 

. .. 0 ■ 



97 

PFTURMNG M 

INT 

VAR 

0 

0 

2 

0 

,8 AOB 

0 



99 

RETURNING S 

INT 

VA3 

0 

0 

2 

0 

,9 AOB 

0 



95 

ENG GROUP 

. . . INT 

VAR 

0 

...... 0 

2 

0 

8 AO B 

, . 0 



2 ICC 

;j r r y v r M 

INT 

VAR 

0 

0 

2 

0 

ft A OB 

0 



101 

A R I"- 1 1 Vs FLAG 

INT 

VAR 

0 

0 

2 

0 

8 AOB 

0 



10? 

FIRST CALL TC STREAM 

....... ... I NT 

VA3 

: 0 

. .ai. . 0 

2 

- 0 

8 AOB 

0 



1C3 

TYPE CHAR 

CHAR 

ARRAY 

1 

FIXED 

2 

0 

ft BOB 

0 

3 


106 

RETURN C F A P 

INT 

ARRAY 

0 

0 

2 

0 

9 AOB 

0 

3 


] C 5 

f STACK 

CHAR 

VAR 

255 

... VARYING 

2 

. .. ..... , 0 

ft 2 OB 

0 



! 1 C 6 

9 STACK 

CHAR 

VAR 

255 

VARYING 

2 

0 

9 COB 

0 



107 

INPUT PNC 

CHAR 

VAR 

2 3 

FIXED 

2 

0 

3 AOB 

0 



1 CH 

fTpr.if/ fnftfa 

STMT 

LAR RL 

0 

0 

2 

0 

9 06 0 

0 




■■1 
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3' 


2 " 


I 


ICC NAME 

ICE P P: PC E S S_C. 0 M M E N T 

no k 

111 J 

112 COMPLEMENT 

113 S T A C K_ P E T UR N_ CHAR 
H<| NUMBER 

115 CHAf R 
life I 

117 PEAD.CARC 
113 ENO_CF_ INPUT 
110 CfO'-'P. CK 
1?0 T V P - 
121 r_CAnr 
12 2 r nsi'fM 

123 PRTUP.N_TP.UP 

124 S C A N_ C A R C 

125 TYPE 
125 COUNT 

127 l I N 

128 ■ I. NO I C ATOP. 

120 CONTINUE 

130 ERRORS 
1? : 1 COMP 
12 2 T Y P E 

133 l.!N 
1 3 a IMP I C ATQR 

135 C CUNT 

136 PCINT 

127 SC -\iN_C AP.O 
138 PE AC_C ARC 
1 3 c Fi-PPPS - 

1 A C CFT_GPP!IJP 

l a i i.pcp 

1 A 2 F A0_ I T 
1 A3 PFA'l.CAttC 
1 A a FP.fCRS 
1 A 5 C C UN D_ GROUP 
146 C C ' v P 

1 A 7 PPCCESS.CCiMMFNT 
IAS CHOP . 

•14° CET_GIU’UP 
1 5 C STACK 
15) TYPE 

152 INDICATOR - 

1 53 LIN 
ISA I NO 

155 STACK . ..... - 

1 5 a r o 

157 MVt_M'JLT IPLS 
153 FRSGRS 

159 HU1LD_X SCRIPTS 

160 CHCCK.M 

1 6 1 PROCESS 

162 STACK 
1.6 3 CHOP 

] A 4 AGAIN • 


I N TER METRICS*. -INC. 


TYPE 

CLASS 

LENGTH - 

• PRECI SI ON 

NEST OUTER, 

.LEVEL 

FLAGS 

SYT_PTP. 

PRCC 

LABEL 

0 


0 

2 

0 

3040 

no 

CHAR 

VAR 

.. i - 


FIXED 

3-- 

0 

S 20 8 

- • 0 

I NT 

VAR 

0 


0 

3 

0 

320B 

0 

STMT 

LABEL 

0 


0 

3 

0 

C 040 

0 

PROC 

LABEL 

0 


0 

2 . .... 

0 

8 04 0 

114 

I NT 

VAR 

0 


0 

3 

0 

86 OE 

0 

CHAR 

VAR 

1 


FIXED 

3 

0 

8 605 

0 

I NT 

VAR 

- - 0 


0 - 

' - 3 -*' J - 

0 

C 20 B 

0 

PROC 

LABEL 

0 


0 

2 

0 - 

8040 

118 

I NT 

VAR 

0 


0 

3 

0 

CAOB 

0 

TNT 

FUNC 

. .. 0 


0 

2 - 

c 

,8 04 0 

. 120 

CHAP 

VAR 



F 1XED 


0 

a 6 QP 

0 

5 TMT 

LABEL 

0 


0 

3 

0 

C 0 4 0 

0 

I NT- 

FUNC ••• 

- - 0 


0 

2 — 

0 

3040 - 

123 

STMT 

LABEL 

0 


0 

3 

0 

C040 

0 

PRDC. 

label 

0 


0 

2 

0 

8040 

125 

I NT 

VAR 

0 

.... 

0 

3 ... ..... 

0 

3 6 OB 

0 

T NT 

VAR 

0 


0 

3 

G 

8 4 OB 

0 

( h a ?: 

VAR 

** 


FIXED 

3 

0 

3 22 0 

0 

INT 

ARRAY- 

- - 0 


0 - 

....... . 3 — *-■*.*;. — 

0 

• 8 220 

. o 

STMT 

LABEL 

0 


0 

3 

0 

8040 

0 

T-CL 

LABEL 

0 


0 

3 

0 

C060 

37 

PR PC 

LABEL 

- 0 

J..' ' 

0 

2 . v— .. 

0 

8 040 

. .132 

I NT 

VAR 

0 


0 

3 

0 

8 60 0 

0 

r m \ q 

VAR 

** 


FIXED 

O. 

0 

3 ? 2 P 

0 

INT 

A R R AY 

- 0 

. . 

- - - 0 

. 3 — •« 

0 

3 ? 2 B 

- 0 

INT 

VAR 

0 


0 

3 

0 

3 22 P- 

0 

CHAR 

VAR 

1 


FIXED 

3 

0 

S ROC 

0 

I -CL 

LABEL . 

... 0 

• , ..... . 

C 

3 - 

0 

8040 

124 

I -CL 

LABEL 

0 


0 

3 

0 

8040 

117 

I-CL 

LABEL 

0 


0 

3 

0 

C040 

57 

PROP 

label 

^ -0 

. • Li... „ . . 

0 

... . 2 

..... • 0 

3040 

- 1*1 

STMT 

l ABEL 

0 


0 

3 

0 

304 0 

0 

STMT 

LABEL 

0 


0 

3 

0 

8 0 AQ 

0 

I-CL 

LABEL 

■ 0 


0 

. 3 , „ 

0 

. 3040 

-.,.117 

I-CL 

LABEL 

0 


0 

3 

0 

.3040 

57 

STMT 

L ABEL 

0 


0 

3 

0 

3040 

0 

- I-CL 

LABEL 

------ ... o 


o • 

- 3 ... • . 

0 - 

■ 3040 

-...■-'..iv .... ] 3 1 

I-CL 

LABEL 

0 


0 

3 

0 

C 040 

109 

PR CC 

LABEL 

0 


0 

2 

0 

8040 

140 

. . .I-CL 

LABEL 

. .... 0 


. . 0 

...... 3 

0 

CO 40 

3 40 

. PROC 

LABEL 

0 


0 

2 ■ * . ’ 

0 

3 040 

151 

INT 

VAR 

0 


0 

3 . ‘ 

0 

:3 60C 

0 

INT 

- ARRAY 

-•W 0 

. 

o 

3 : 

0 

860B 

0 

. CHAR 

VAR 

** 


F IX ED 

3 

0 

360B 

0 

INT 

ARRAY 

0 


0 

3 

0 

322B 

0 

. . CHAR 

VAR 

.. ** 

. . ., s 

FIXED 

3 - 

0 

. 8 22B 

-. 0 

INT 

VAR 

0 


0 

3 

0 

3 233 

0 

STMT 

LABEL 

- 0 


0 

3 

0 

8040 

• 0 

-T: I-CL 

LABEL 

. o 


Vm. V . ■. . - 0 

. • .. 3 . .. 

- 0 

C 040 

57 

PROC 

LABEL 

0 


0 

2 

0 

8 040 

160 

STMT 

LABEL 

0 


0 

3 

0 

8 040 

0. 

STMT 

LABEL 

0 

rr.. 

■ . 0 

3 . 

0 

8 04 0 

0 

I-CL 

LABEL 

0 


0 

3 \ , 

0 

8 040 

150 

I-CL 

LABEL 

0 


0 

3 \ ?■_ ■ • 

0 

C040 

1 48 

ST ft 

LABEL 

■ 0 


0 

2 • T 

■. 0 

8040 

0 


A PRAY 


256 


256 


256 

256 
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LOC 

NAME 

TYPE 

CLASS .. 

LENGTH 

.. PRECISION 

NEST. 

. OUTER_LEVEL 

FLAGS 

SYT_PTR 

165 

ERRORS 

I-CL 

LABEL 

0 

0 

2 

o 

30*0 

57 


* SAVE fUANK CCUNT 

TNT 

VAR 

- ■ • - 0 

..... . . ... 0 

2 

• — ' o 

821 P 

- 0 

167 

STACK CHECK 

STMT 

LABEL 

0 

0 

2 

0 

3040 

0 

16? 

5FGINING 

STMT 

LABEL 

0 

0 

2 

0 

3040 

0 

16? 

EC UNO CHAR 

. . . STMT 

LA3EL • 

0 

. .... . 0 

2 

... 0 

S 040 

. . 0 

1 7 C 

Bl A 'IK 

STMT 

LABEL 

0 

0 

2 

0 

8 040 

0 

171 

cy.F!:H C! T 

STMT 

LABEL 

0 

0 

o 

0 

3 040 

0 

17? 

SL3S 

■ STMT 

LABEL ■ 

.... 0 

. - 0 

2 

.. 0 

C 040 

0 

1 77 

MAIN PROGRAM 

ST V T 

LABEL 

0 

0 

1 

0- 

3040 

0 

1 7 A 

MAI N_ LOOP 

STMT 

LABEL 

0 

0 

1 

0 

C040 

0 
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I N T E R M E T R I C S , • I N C - 


CROSS REFERENCE LISTING: ; ■ 

LCC FLAGS t STATEMENT N'JMPER - (FLAG KFY: -■ A = ASSIGNMENT, ‘2 •= REFERENCE, 1 • -SUBSCRIPT- USE) 


1 

0 

cool 

2 

0 

000? 


C 

COO’ 


z 

02 00 

4 

0 

C004 


2 

0477 

c 

0 

000 5 

6 

c 

COO 4 

7 

c 

C C C 7 

8 

0 

0 J 0 5 

c 

0 

Q00~ 

10 

0 

00 U 

11 

0 

0012 

1? 

0 

CO 12 

13 

0 

cm? 

14 

0 

001? 

I s 

c 

001 ? 

15 

0 

0014 

17 

0 

GO 14 

18 

0 

CO 14 

19 

0 

001.4 

20 

0 

001 4 

2! 

0 

0014 

22 

c 

0014 

23 

0 

0014 

24 

0 

0014 

25 

0 

CO 3 4 

26 

0 

CC1 4 

27 

0 

00 15 

2 3 

0 

CO 1 6 

29 

0 

CO 1 6 

30 

0 

00 17 

31 

0 

CO 18 

3? 

0 

CC 1. 9 

33 

0 

0020 

34 

0 

0021 


2 

0 561 

3 5 

0 

00 2 2 

3 6 

0 

00 2 3 

37 

0 

C C 7 4 

38 

0 

C025 

35 

0 

' 0026 

40 

0 

CO 2 6 

41 

0 

CO 3 4 

4? 

c 

C 0 3 4 

4 3 

c 

CO 34 

44 

0 

00 36 

45 

0 

00 3 6. 

46 

0 

CO 36 

47 

0 

C C 4 5 

46 

a 

00 4 5 

. 45 

c 

004 5 


2 0003 

2 GC04 . 

2 0CC5 

? 0006 

2 0007 

2 oooa 

2 0005 



2 0013 

2 C C 1 3 

? 0075 

2 0030 

2 010° 

2 0128 

2 0146 

2. 01.62 

2 0163 2 01.67 

? 0 ? p 2 

2 0339 

2 C 3 { ■■ 5 

2 039 2 

2 0410 

? 0450 

2 0474 

2 0502 

2 0552 

2 001.5 

2 0110 

2 0127- 

2 0166 - 

2 0168 

2 0173 

2 0177 

2 0180 

2 0185 -2 0195 • 

2 0503 

2 0560 








2 0 01 3 

2 0C1 5 

2 CO 1 8 

? 0105 

2 CUO 

2 0146 

2 0158 

2 0190 


? 0 ? 1 

2 0? 53 

2 03 67 






• •• * ... • 

?. C C 7 1 

2 COCO 

2 0147 

2 0203 

2 0257 

2 0337 

2 0363 

2 03 30 

2 0409 2 0416 

NOT R F 6 

ERf.^C r D 








2 0225 

2 0 5/. 6 



-■ * ■ 



• ~ '* 



? 0050 

2 C C 55 








4 0545 

6 C563 

2 C 5 7 5 

4 0576 






4 0 54 5 

6 05 5 6 

6 0558 

2 0574 

4 0576 


•- \ , 



4 0 54 5 

6 C66 1 

2 0 56 5 

2 0666 

2 0567 

4 0568 




4 0 5 4 5 

4 C562 

2 0 56 6 

2 0567 

4 0568 





2 0 64 5 

4 0540- 

4 055? 



~ 


.« i-5— . • *• ~ — 




6 0066 

2 CC67 

2 C06? 

1 0070 

1 0071 

2 0073 

2 0074 

2 0085 

2 0086 2 0087 

2 0381 

1 0382 

6 C 7 8 3 







2 03 61 






• , 



4 0503 

2 0613 

2 05 21 

2 0533 






2 0 5C3 

6 0509 

2 0 53 1 

2 0 5 3 4 

2 0536 





6 0073 



• ... 

• ' * * - 

* - ■* " ‘ ' 




6 0075 









4 0070 

2 CC50 

2 C05 2 







4 0071 

2 00^0 







• f , ' ■ - r '/• 

? 0063 

4 0072 

2 COS 7 

2 009? 






4 00 35 

3 0050 

4 0055 

. 2 0096 

4 0120 

1 0121 

1 0122 

3 0125 

‘ V ' 

6 0075 

6 00 °0 



' • 

...» 

- 




2 0055 

4 0364 








4 0054 

2 C C 5 5 

2 C 097 







2 0 3 S 2 

4 C3 0 5 





’ • w ! ' 


. .. 

2 03 30 

4 0352 








2 0071 

2 C 072 

2 0084 

2 0096 

6 0152 

2 0153 

2 0154 


• 1 i; ” •• 

2 UO 76 

2 0081 

2 0578 

C 05 8 0 

-- : — 

* 

* -'- 1 - 



VA -*'~ ~* *» • . «. 

4 03 Q 2 

4 0387 

4 0393 

4 0403 

4 04H 

4 0418 

4 0443 

4 0460 

4 0468 4 0486 

2 C57C 

2 0573 

2 0578 







4 C 3 54 

4 04 04 

4 C4 1 2 

4 C435 

4 C437 

4 0439 

4 0449 

2 0510 

2 05 54 - 2 0 558 

4 0'38 

4 0393 

4 C6 1 3 

4 04 21 

4 0461 

4 04S7 

2 0512 

2 0571 


4 012 7 

4 C 1 2 8 

6 Cl 29 






V, 

2 0123 


- — - 


— ' - ; 


- u - 1 - 

'' • ‘ 


2 0160 

2 0166 

2 017? 

2 0177 

2 0184 

2 0258 




C GC 2 7 

2 C C 28 

2 0025 

2 0030 

2 0031 





2 0123 






X 



0 00 35 

2 00 ’7 

2 0041 







0 0035 

2 0038 

2 0041 







4 0 C 4 C 

3 CC41 


- — 




« 

■’ " ■ - 

4 0037 

2 0029 

2 CC4C 







4 0033 

2 0039 

2 0040 

1 0041 







2 0172 2 0174 ? 017S 

2 0345 2 0372 2 0401 

2 0456 2 0462 2 0549 


2 0069 




4 0494 2 0511 2 0548 

2 0562; ■ 


NOT reference 0 

0 0046 2 CCA 9 2 C0 C 0 2 0051 

0 0048 3 COFQ 


2 0181 
2 0427 


2 0553 


0184 

0452 


2 0560 



H A 

L 

c 0 

M 

P 1 L 

A 

T I 0 

N 

— 

P 

H A 

s e 

1 

“ 

I 

N 

TER 

50 

0 

004-7 

4 

0050 

4 

005 1 

•5 

/„ 

00 52 









5 1 

c 

004 8 

4 

CC49 

3 

CC r O 











52 

0 

0054 

7 

0154 










- - • 


«. . . . . 

53 

c 

0054 

0 

0056 

2 

008? 











54 

c 

CO 54 

0 

0056 

3 

C C K 9 











55 

c 

00 5 5 

4 

CC 57 

2 

C C 5 3 

6 

0059 

2 

0060 






..... 

56 

0 

0056 

4 

00 53 

3 

GO 55 











67 

0 

006.7 


0 710 

.2 

0 2 1 2 

? 

C? 33 

? 

02 54 

2 

0316 

O 

0320 

2 

0 36 8 

5 8 

0 

CC62 

0 

0064 

? 

C C 6 7 











59 

0 

006? 

0 

0065 

2 

CC67 

2 

CC70 

2 

0078 

2 

CC79 

2 

0080 



60 

0 

00 6 3 

4 

0067 

6 

0068 

2 

0069 









62 

0 

0 0 8 7 

p 

0 5 6 C 













6 3 

0 

OLCO 

•> 

0 5 4 7 













6 4 

0 

C:Oi 


0 3 4 6 

4 

0 2c 2 

6 

C ? 3 3 

7 

0731 

4 

037? 

2 

0-4? 3 

2 

043 5 

65 

0 

0101 

6 

0247 

4 

027? 

A 

C 2 9 C 

7 

0332 

4 

0373 

2 

0440 



66 

0 

0101 

6 

0266 

1 

C 2 83 

1 

C29C 

2 

0330 

2 

0338 

4 

0340 

2 

0344 

67 

0 

0107 

2 

0154 

4 

0 1 c 6 

4 

0 2 67 









68 

c 

010? 

2 

0119 

2 

0120 

2 

C 1 2 1 

2 

0122 

2 

0125 

4 

0143 

4 

0151 


p 

02 5 8 

2 

0 26 6 

2 

(! 2 6 3 

? 

C 7 7 6 

2 

0771 







65 

G 

Cl 0-7 

p 

0246 

2 

-> 

c 747 











70 

0 

0104 

2 

0 516 • 

<£ 

l' J 13 4* 











71 

0 

0105 

2 

0233 

2 

C 2 54 

2 

C 3 6 8 









72 

0 

01 06 

p 

c 

0253 

4 

0268 

4 

0276 









7?. 

c 

0106 

2 

0353 

2 

0411 

4 

0511 









74 

c 

C 106 

2 

0 3 9 4 

7 

C 4 1 2 

4 

C 5 1 C 









7 5 

c 

0107 

/ 

04 15 

4 

0 4 20 

2 

04 41 

4 

04 4 2 

4 

047 8 

2 

04 8 = 

4 

04=0 

7 6 

0 

01.07 

4 

0451 

2 

046 3 

u 

0-464 

2 

04.49 

.. 4 

0470 

2 

0476 


. . 

77 

c 

0107 

4 

0323 

4 

C 3 57 

2 

03 59 

2 

0360 







78 

0 

0107 

4 

0359 

4 

C 7 6 0 

4 

C 3 7 5 

2 

0417 

2 

0421 

4 

0422 



76 

c 

Cl 07 

4 

0 32 3 

4 

C352 

2 

,03 59 







... 


8 0 

c 

0107 

4 

0329 

4 

c 3 3 1 

1 

0354 

3 

0355 

1 

0357 





81 

0 

0107 • 

4 

0 3 2 9 

4 

0332 

1 

C345 


0 3 50 

1 

0 35? 





8? 

c 

01 07 

2 

0120 

■ 2 

0125 

2 

01=1 

• 2 

0197 

. 2 

0206 

2 

0 234 

. 2 

-0286. 

S3 

c 

0107 

2 

0248 

4 

C ? 50 

4 

02 62 

2 

0284 

4 

02 88 

2 

0432 



84 

0 

01 07 

4 

0243 

7 

0283 











35 

c 

0107 

2 

0 2 4 9, 

4 

0250 . 

4 

0272 

? 

0291 

4 

0295 

•2 

0440 

» vw -• • •• 

8 6 

c 

Cl 07 

4 

0249 

2 

0 25 5 











87 

0 

0107 


0246 

1 

0 247 

1 

02 6 6 

6 

0.299 

2 

0300 

4 

0304 

] 

0 312 


L 

C 377 

1 

0425 

1 

04 26 

1 

042 8 

3. 

047 0 

1 

0433 

1 

0434 

- 1 

0435 

83 

0 

0107 

n 

0191 

6 

Cl 92 

1 

C 1 9 2 

6 

0194 

4 

C2C6 

1 

02C7 

1 

0205 


1. 

0?°7 















85 

c 

C 1 07 

4 

0453 

2 

C4 57 . 

■■ M 

045 8 

1 

0459 

. ■ 1 

04 61 

. fc 

0462 . 

1. 

.0463 


1 

04 8 5 

1 

04 37 

6 

04SB 

1 

04 8 6 

1 

04 = 0 

1 

0434 

1 

0495 

. 1 

04=6 

50 

c 

0107 

4 

0415 

4 

044J 

4 

0463 

4 

G 4 6 5 

4 

0489 

4 

04 = 5 

2 

0507 


2 

0 531 

4 

0535 











• ■— 

- 

91 

O' 

0107 

4 

C3 7 S 

6 

C 3 9 9 

1 

C4GC 

1 

0402 

1 

04 C 3 

4 

04CS 



5? 

0 

0108 

4 

0 331 

2 

0357 

? 

04 8 5 

2 

0487 

2 

0489 

2 

0490 

? 

0495 

52 

c 

CIOS 

4 

C332 

7 

C352 

2 

O'- 55 

(. 

04 61 

2 

046 3 

2 

0 4 64 

. 2. 

0 465 

94 

c 

0 1 0 6 

4 

0 2 6 2 

4 

G 2 f ’ 6 


0301 

2 

03 31 

? 

04 34 





9 c 

c 

OIOS 

4 

0272 

4 

C293 

6 

0 30.7 


03.32 







9 6 

0 

0 1 0 3 

4 

0477 

2 

0 4 8 7 

4 

C 5 C 2 








t-.- 

97 

0 

01.09 

4 

0372 

2 

0 4 1 6 

4 

04 5 0 

4 

0503 







98 

0 

0109 

4 

045? 

2 

04 56 

A 

0476 









99 

c 

Cl 05 

4 

Cl 62 

4 

Cl 66 

4 

Cl 6 7 

4 

C 1 7 2 

4 

0177 

4 

0178 

2 

02 57 

100 

c 

010° 

2 

07 37 

4 

03 39 

4 

0 3 4 5 

4 

04.77 







1C1 

c 

C1C8 

4 

04 C 1 

?. 

04C5 

A 

04 1C 
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M E T R I C S t • 



? 0434 2 0440 2 0536 2 0533 2 0534 


4 0346 4 0373 2 0425 2 0426 4 0428 4 0429 2 0443 

2 0156 2 0160 2 0179 2 0191 2 0153 2 0207 2 0217 2 0232 


2 0495 4 0496 


2-0292 . 2 0300'=--' 1 0301 1 0302-'- 4 0371-* 


1 0322 1 0323. 1 0330 1 0338 1 0340. 1 0344 1 0346 4 0374 

1 0440 1 0443 — 

1 0216 1 0217 4 0234 1 0235 1 0237 4 0285 1 0286 4 0252 

1 0464. 1 04 68 ...1 0469 .1 0470 . 6 0471,... 4 0479 2 0483 . 1 0484 

6 0497 

2 050° 2 0514 2 0516 2 0518 2 0522 2 0523 2 0525 2 0530 


2 04°6 
2 0470 



4 0282 



HAL COMPILATION 


P H A S 


.1 NTERMETRICS 


I N C 
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102 

C 0110 

2 0363 

4 0865 






1C’ 

0 Cl 11 

4 014 C 

2 C 4 C 3 






104 

0 0112 

2 013? 

4 Cl?4 

2 C6.CC 

6 0402 -• 



■ ■ 

1C5 

0 0 13 

4 0327 

4 033 3 

2 0354 

6 035 5 

4 0356 

2 

0483 

1C6 

0 Oil’ 

4 0327 

4 C33? 

2 0345 

6 0350 

4 0351 

2 

0457 

1C7 

0 0114 

2 03 43 







1 CH 

? Clio 

C 0 3 i 3 







10 c 

0 0 1 1 6 

2 0777 







1 3 0 

0 0117 

4 03 22 

2 03.23- 

4 0125 

? 0127 

2 012P- 



1 1 1 

0 C 1 1 5 

4 0123 

2 C 1 24 

1 C 1 27 

1 012 3 

1 0129 



1 1? 

2 01? 6 

C 0129 







3 1 3 

C 03 34 

2 0514 

2 05)7 

2 0 5 1C 

2 0524 

2 0525- 

2 

0531 

1 3.4 

0 C 1 3 4 

0 0125 

2 Cl .39 






115 

0 0 3 ’ 4 

C C ! 3 fc 

2 C14Q 






116 

0 013 5 

4 0137 

1 0133 

■1 01.35 

- 1 0140 - 

• ■ * • 

— * • 

’ ~ 

1 17 

0 Cl 4 5 

2 C231 

2 C 2 52 

2 C3 66 





11° 

0 014 6 

2 0147 







3 1 ' 

0 015? 

? 0233 

2 C 2 f 3 

2 0367 


" 



1 ?C 

0 015 3 

C 0155 

2 0166 

2 0173 

2 0177 

2 0130 

2 

0184 

12! 

C 016 5 

2 one 







3 ? 2 

C 01 °0 

2 0208 







123 

0 CIO’ 

2 0198 







124 

0 0?C? 

2 C23C 







125 

G 0?C2 

C 0204 

2 0 2 09 






3 28 

0 020’ 

C 0204 

2 0218 






1 27 

0 C?C? 

C 0205 

2 0209 

4 0217 





12? 

0 02 C? 

C 0203 

4 C 2 1 6 


. .... •. • -• 



- " ' ' 

120 

? 020? 

2 0213 

0 C 2 1 9 






131 

C C??l 

2 C262 

2 027? 






13? 

C 0221 

0 0 2 ? 3 

2 C??6 

2 0230 

2 0236 



. * . , -- ■ 

133 

0 0??1 

0 0224 

4 O’?0 

2 ' C ?. 3 5 





134 

0 02 21 • 

. 0 0225 

4 C 2 30 

4 02 35 

t 0737 




135 

0 C ? ? 1 

0 0223 

4 0228 

2 C?’0 

2 02 37 

6 0242 


...... -r* 

136 

0 C 2 2 2 

4 0226 

4 C227 

2 C 2 3 2 

2 0233 




140 

0 C? 4 5 

2 0303 

2 0375 






141 

? C2 51 

C 0257 

2 02 63 

2 C7.73 



■v? 


34? 

C C 2 3 7 

2 02 55 

2 C?69 

2 0^73 





145 

2 C ?. 5 7 

0 0 2 8 1 







14? 

0 C298 

? 0333 

2 0444 



: .... 


' ' * * 

150 

C 0307 

2 0331 

2 0332. 






151 

C C 3 07 

C 03 C 8 

2 C 3 1 3 






152 

C 0307 

0 0 31 0 

2 0323 






1 53 

C 0 3 07 

C 0309 

2 031 2 

2 C322 





154 

C 03 0 7 

0 031 0 

6 C 7 3 3 

4 C323 





1 \ * 5 

0 0307 

C 03 C 5 

2 C 3 1 3 

6 032? 




•• , •. .' v ». 

156 

0 0307 

C C3CS 

2 031 1 

1 0313 

6 0317 

2 0318 

l 

0323 

157 

2 0311 

2 0314 

0 0317 






159 

C 0326 

2 044 8 







160 

0 03 30 

2 0334 







161 

0 0 33 0 

2 0 34? 

2 0347 






1 64 

0 G^66 

2 0365 





. 


166 

2 0 3 5 6 

2 03 5 8 

4 0389 

2 041 3 

4 0512 




167 

0 0 3 °° 

? 0540 







1 6E 

0 0416 

2 05 C6 







169 

2 04 2 3 

2 04 4 5 

2 0473 

2 04 c 5 

C 0507 




170 

2 04 30 

0 04 4 7 








2 0484 
2 0458 


? 0404 

2 0468 




H A 

L 

c c 

•M 

P I L A T I C N' 

P 

171 

C 

03] 5 

2 

0527 


17? 

C 

097? 

2 

C530 


17? 

0 

0444 

NC 

•T REFERENCED - 



174 

C 

C 54 6 

2 

054 9 


A C 

R 

0 T 

r: 

XT LISTING: 



ICC TEXT 

1 REPLACE 
? 0 
? I 

4 I N T F G p 

5 IF C = 

6 IF 1 = 

7 •' R T T F ( 6 ) 

9 U1LF 1 = 1 


1 



INTERMETRICS. - INC 
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STACKING DECISIONS = 1366? 
CALLS TO SCAN = 3926 

CALLS tc IDENTIFY = 

N IJ H F R OF PEELCTIONS = 9727 
MAX STACK SIZE = 2.5 

MAX IMS. STACK size = 3? 

EI\C IND. STACK SIZE = 17 
MAX EXT_ ARP AY INDEX = ?. 

XRFF LIST ENTRIES = E70 
STATEMENT COUNT = 5F3 

MAX CUT f R_ L I ST INDEX = 0 
MAX NESTING DEPTH = 3 
FREE STRING AREA = E5355 



766 CARDS WERE PROCESSED. 

NC ERRORS WERF DETECTED DUPING PHASE 1 . 


TCTAL APSE C TIME IN COMPILER C:C:20.52. 
ELAPSED SET UP TIME 0:0:0.04. 

ACTUAL FLAPSFO COMPILING TIME 0:C:19.J3. 

ELAPSED ' CLEAN-UP TIME AT END 0:0:1.35. 

PRCCESSING RATE: 2465 CARDS PEP MINUTE. 
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BFGIN TEST CE HAL IN' HAL 
1 Cl 256 
? fM TPASN t'PPOGBAX ; 

* * E L A N K S = 1 
+*+TOKEN = TP6RH 
<c<!#TCKEN=:’ 

*#«TOKF N= PROGRAM 

♦ ♦♦TCKPN'*; 

*#*MAIN*** TP ARtf: PROGRAM'; - 







**Bt.ANKS = l 
***TCKFN= INTEGER 
A*E L ANKS = 1 
‘i^Tricr:,-] ,M r j i L 

* * * T n K r ' '! = ( 

AAATCK FN = 3 
A*ATCKFN= , 
*#*T0K p M=2 

* a a t r k r n - . 

* a a r r x r \ = 5 
**#TOKFM=t 

A AA7CK t: ,\ = A 
a * A T f K E N = , 

A AATQK F N = 1 
A * A T C K F \ = ) 
***Tf!K c r; = ; 



**$nv c *'*#* ■ ' •• - 

***MAT|\,A*a DECLARE II ARP.AY15) INTEGER IN I T I A l { 3, 2 , 5 , A , 1) : 


10 M f F G L A R F ARRAY (=5) SCALAR » SI , S2; 


A* Ft ANKS = ?2 
***TCKFN=nFCLARE 

**3L ANK S = 1 
AAATCKFN= ARRAY 
*aaTCKFN= ( 

* * * T C K [■ N = 5 

* AATCKFM* ) 

AABLANKS=1 
***T0KFN=SCALAR 
AAATCKEN= , 
*A!?LANK$ = 1 
A * A T C K C N = s 1 
AA8L ANKS=1 
AAATCKF.N= . 

* A BL ANiK $ = I 
***T'C!<EN = S2 
A A A T C K E N = 5 



- A A A c V R R * A * -- ■-■ 

AAAYAINAAA DECLARE ARRAY 1 5 ) SCALAR, SI , S2; 


I TO 







function declarations 

1 3 H| FUNCTION CC-CLARAT ICNS 

12 El * 

13 PRO): FUNCTION <P ! MATRIX (*,*); 

1AS| *»*..' 


♦ *PL ANK S = A 7 
***TCKFN=PRC1 

♦ * * TCKf\= : 

♦ =!■ c L a k S = 1 
#**TCKt:N= c UA'CTIOM 

♦ ♦BLANKS*.’ 

♦♦♦TCKFN* ( 
***TCKFN=P .MARKER** 
***TCK r N=4 

♦ ♦ * T C K N = ( 

♦ ♦♦TfK C .N = * 

♦ ,i * t p k c H s , 

♦♦♦TCKFN** 

♦♦♦TOKEN* I 

♦ ♦ s T 0 K v N = ) 

♦ * f? 1. A K x s - \ 

♦ **TfKRf. = HAT[’ IX 

♦♦PL ANK S= 1 • 

♦♦♦TCKFN* ( 

** * T 0 K ON = * 
♦♦♦TOKEN*, 

♦ * ♦ T C K F N = ♦ 
**#TCKEN=1 
♦♦♦TOKEN* ! 



♦♦♦OVER*** * 

♦♦♦MAIN*** PRO 1 : FUNCTION (P$t*,*)J MATRIX (♦.»♦)? 


j 15 p ) *-l . . I, 1 

16 Ml RETURN P ; I > 


**BLANKS=A5 

♦ * * T C K FN = P RTUP.N 
♦♦PLANKS=1 

♦ ♦♦ T OK FN = P , MARKER.** 
♦♦♦TOKEN** 

***T EK FN = * 

♦♦♦TOKEN* I 
*** TOK I N=- 
***TCKEN=1 

♦ ♦♦TOKEN* > 

♦ ♦♦token* ; 



♦ ♦♦MAIN*** RFT1JPN P**(-1)J ’ ' , . 


17 Ml CLOSE PRCl; 



♦ * 2LANKS = 67 
***TCKFN=CLCSE 


♦*EIANKS=I 
♦♦♦TCKFN=PR 01 
♦♦♦TOKEN* ; 


♦ ♦*m>a in*!** CL OSF PRO 1 ; 


IB M pro: FUNCTION t B 1 MATRIX (♦,♦); 


* <■. p i f , k 5 - f. 7 

. ♦ ♦♦TC!K C N*F , RC> ■ *•- - • -* L -- - - L 

♦♦♦TCKFN* : 

♦ ♦•BLANKS'®} 

♦ ♦♦Tf;K c N® F UNCTION . . ... ■'■.■••...■■ 

* B t. K K 5 = } 

♦♦♦TOKFN= ( 

. ♦♦♦TGKr N=B -••■-'■■ ... 

* ♦♦TOX f N= ) 

♦♦CLANKS*] 

♦♦♦TCKSN*MATKIX ... 

* * n l. A N K S = 3 . 

♦ ♦ ♦ T F K N = ( 

. r«f n =* j — - ~- 

♦♦♦TCK C N=, 

♦♦♦TCKCN*^ 

♦ ♦ ♦ TCK r N = ) 

* ♦ * T C K C N = : 

♦♦♦OVC e ♦ ♦♦ ■ ■ -■ -■ • ■ •• - 

♦♦♦MAIN*#* PRO: FUNCTION (E) MATRIX (♦»♦) 


1 13. 






IF M | Dr CL APE MATRIX <♦,♦}, P 


♦ ♦BLANKS***? 
**#TOKFN=DFCLARE 
♦♦ELANKS=1 
♦♦♦TCKEN*NATFIX 
♦♦PLANK S = 1 

♦ ♦ ♦ t r k c n .* < 

.♦♦♦TOKENS 

♦ ♦ ♦ T C K FN= , 
♦♦*TCKFN=* 
♦♦♦TCKFN* ) 

♦ ♦ ♦ T C K F N = » 
♦♦BLANKS*} 
♦♦♦TPKFN=B 

♦ ♦♦T C K F'N= ; 





2 " 


♦♦♦nvs?*** ...... 

♦♦♦MAIN**+ DECLARE MATRIX {*,*), P I 


20 Mi RFTURN PRO 1 ( B ) 

21 SI 2 TO A, I TC 3 


I 20 
I 21 


i 


♦♦BLANKS® 3 6 



#**TrKFN=PFTURN 


**BLANKS=1 
***TCKF K=PRC1 . 

* * <■ T C X i? N = ( 

*<■■•>> t o k p ■' ; = “ 

***TCKF\=$ - " * 

***TCKF N'= (' 

* ’(‘♦TOKEN®? 

• ♦♦SLAKKS** 

* * * : f \ - T C 

*<-2L4N*S“l 

>;•. ♦♦TCKFN = 4 - ... ... 

#*$TCKFi\'-, 

♦♦♦TOKEN®! 

♦♦BL ANKS=1 
*** TGK-V-TG 

* * 31 . 5= 1 

* * * T C * r N = 3 ■ •-•-•’ ■- 

* ♦ ♦ TCK C N= ) 

♦♦♦TGKEN= ) 

* * # ! r < r •■■■ = : 

*nvro (t** 

• RETURN PP03 ( RS (2 .-TO -4 , 1 TO -3 ) 


?? M- CLCSE PRC; 

♦♦BLANKS® SO 

♦ ♦♦TCKFN = CLGSfr 

♦ * B L A \ K S = 1 
♦♦♦TCKCN=PRO 

♦♦♦token®; 

♦♦♦OVER *♦♦ 

♦ ♦♦MIN*** CLOSE PRO; 










PAIN PROGRAM 
2 2 HI MAIN PROGRAM 
2 A M| cc FOR 1 = 1 TO 5; 

A N H. S = 6 7 
*M*TOK I" \J = r 0 
**B1 ANKS = 1' 

**RTPKF\=FOR 

* R BL AN!< S= 1 

* * ■* t c k r v = I 

* ♦#TCK c f: = = 
a « * T 0 ’< r \’ = 1 
**SLA\KS=1 
**^T!2KrN' = TO 

**Pl V.'KSM 

Hr- H * T r K f N = 3 

* + * 7 r k r a* = ; 

***M/\IN**o nc POP. 1 = 1 TO 5; 


23 Ml DC r rs J=t TO 5; 

*R eL A\KS=63 
RR*TCKEN=PC 
**BLAKKS=1 

* * * T C K f F = c 0 R 
**rU.ANK'=l 

***tokpm=j 

«"»*TCKFN = = 

*** TCKFN = 1 
•♦BLANKS* 1 
**RTI'.Kr N = TO 

* * P L A N ;< S = 1 

RRRTOK f-N = 5 • 

*=>*TCKPN= ; 

•••OVER*** 

***MAIN«->S>* cr POP J=1 TO 5; 


26 

El 

J 

27 

El 

11 $1 

2 3 

Ml 

M2 = SI ; 

26 

SI 

I , J 11 

2 C 

SI 

I 


R*RIANKS=65 
***TCKFN=M 2 
RRRTC'< r: . v = t 
Z " ■*#*TC!'PN= ( 
***TCKFN=I 
. *R*T!7KEM=t 
*£*TOK c N=J 
RR*TCKFN=) 

' PL AM\S = 1 


I 23 
I 24 




***TCKEN=S1 

***TQKEN=$ 

* * * T C K N = l 
it.jiTflK r V= I l 
** *TCK."N = i 

* * * T r. K E n = ( 
***TCKF.\ = I 
***TCKFN=> 
***TCKE\=) 
*** T ok C N« * 
0**1 C K r '. - * 

**$TOK r \'=( 
** *TCK C.\l= I 1 

* * * T C K E N = » 
***TOKEN*I 

$**tck c \=* 

* $ (i t r k r \ = * 

***TC-KF \= ( 
***TCKrN=J 
***TCKFN=) 
***T(’.KFN* ) 
♦♦♦TOKEN* ; 



■ ■'■ ■= 

M?$(I f J)=SlS(nS(I))**(U$I**<J)) 



21 v| End; 

**BL&\'KS = 62 
♦**TCKFN=END 

♦**tckfn=: 

***OVC L ' * * * 

***?•'•' JN*** ENC; 



32 Cl THE NEXT GROUP HAS AN OVERLAPPING E LINE 

33 5 1 I -■ • - -•«•. • ■ 

***** r R P C R « 1 OF SEVERITY 1: OVERLAPPING E-LINE CHARACTERS . ***** 
3A El IIS I 

35 HI S? = S1 i /♦ CCVMFNTS ARE -BLANKS */ - 

36 SI I I 




3A 
3 E 
36 


2 " 


**RLANKS=75 

* * * T C K N = * 

* * * T f K P N = ( 
♦**TOKFN=I 
***TCKFN=) 
*** TCK E N = = 
***TC-K!'t\=S 1 

* * * T C K 5 N = $ 
***TCKPN=( 
** * T n K EN= I 
***TCKPN=) 
***TCKCN=* 

* * * T r K C M = * 





1 


***TC<rN=( 
**^TCKr\=I 1 
**’f'TCKEN=S 

* * * T C K f- A = I 

***TOK EN= ) 

***tck 6 n=; 


♦ ♦’(■OVER*** 

« * * >/ A 1 1\ * <■• S"MJ)*SU(IJ**fIHI) 



4,1 Cl 6M S L!NF. OVERLAP A BCVE 
42 v| FNP; 

*♦ DLANKS=71 
**#TCKFN = ENr) 

***TC1K[-N=; 

* v~ p * 

***('AIN*** END ; - • - • - • •••-■■ - 





43 E I * * 

44 N| yi = PRC(f-2 /* IGNORED */ )! 

45 SI 4 AT 3,4 AT 4 ’ 

**BIANKS=75 
***-TCKEN = f / l , E AR K E R = * 

*«*TCK r: rj= = 

***T(TKF N=F!?C 


I 43 
I 44 
I 45 



***TCKEN' = t 

*«=>TCK C N = M? .MARKS R = * 
***-rCKFN = 4 

* i * T n X F N = ( 

***T;;KFN = A 

**2t ANKS=1 ■ « 

***TCKEN=AT 

♦♦PLANKS®! 

***TCK r N®3 

iff; i) T r 'K ?'■'=, 

* * *. T f K • ■ N = A 

**HL *NK S = 1 - — 

***TOKEN=AT 
**GL AM<S = 1 
»*#TWN*5 
♦♦♦TON !•::=■) 

**r;L anws = 2 

♦♦♦TOKEN* ). - 

* * ■» T OK S' N = ; 








fr 


♦♦♦CVER*** * * 

♦ ♦♦>.'A IN-**# M l = PRO(M24( A AT 3, A AT 5) ); 


Afc M| CLOSE TPARM ; 

♦♦BLANKS -53 
♦♦♦TCK r N = C.LCSF 

♦ * EL A NX'S =1 
***TCKPN=TPAKM 
***TaK r N~; 

<: t * f v C f ’ * ♦ * 

♦ ♦♦KA ! N*** CLOSE TP ARM ; 



A 7 Ml ? I A7 






3 " 


**et'AKKS»67 , ■ ■ ...... .... 

♦♦♦TOKEN*? 

A 7 CARDS NSPE PROCESSFO 

3 epsoPS WERE CFTECTEOt THE LAST ERROR WAS - ON LINE- AO 

♦♦♦♦♦summary cf detfctep ebrcps.***** 

ERROR « 1 ON LINE 37 OF SEVERITY I. 

ERROR * ? ON LINE 37 CF SEVERITY I- ...... 

ERROR « 3 ON LINE AO OF SEVERITY 1. 

C ARC-PRO CF S S IN G RATE: A . A ? 6 S S c 3 E + C 2 CARDS PER MINUTE 

CLCCK TIME IS A361AA3 - 

THI < TFST IS NCW COMPLETE. 









I 



C 42' 45 4G 
M TPARM: PROGRAM; 

E * 

M DECLARE Ml , 

S 3,3 

E * 

M M2 ; 

$ S3 

l-i DECLARE II ARRAY( 5 ) INTEGER 1 Ml Ti Al( 3, 2, 5, 4, 1 ) 
M DECLARE ARRAYC5) SCALAR, SI , S2; 

H FUNCTION DECLARATIONS 
E * 

M PROl: FUNCTION (P ) MATRIX (*,*); 

S *, * 

E *-l ■ 

M RETURN P ; 

M CLOSE PROl; 

M PRO: FUNCTION (B) MATRIX (*,*); , 

M DECLARE MATRIX (*,*), B; 

M RETURN PROKB ),* . 

S 2 TO 4 , 1 TO 3 ... 

M CLOSE PRO; 

II MAIM PROGRAM 

M DO FOR I =1 TO 5; .... ...... .... 

M DO FOR J=1 TO 5; 1 

E J 

E 11$ I 

M M2 = SI ; 

S l,J II 

S I 

M END; 

C THE NEXT GROUP HAS AN OVERLAPPING E LINE 

E I .... 

E 1 1$ I 

M S2 =S1 ; /* COMMENTS ARE BLANKS */ 

SI! 

E 2 

C THIS SHOULD DEMONSTRATE CARDS OUT OF ORDER 
MS 2 = S2 ; 

S I I 

C AN S LINE OVERLAP ABOVE 
M END; 

j£ * * 

M Ml =PRO( M2 /* IGNORED */ ); 

S 4 AT 3,4 AT 5 

M CLOSE TPARM; 

M ? 


